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1.0 ABSTRACT 


This diagnostic has three starting addresses: 


200 Normal start 
204 Restart , 
210 Starting address with tester 


This diagnostic tests the MNCAD/MNCAM with or without the 
optional test module(s). 


When starting the diagnostic, a set of tests are listed. The 
operator selects the test by the ‘TEST CHARACTER’ and then 
depresses the ‘RETURN'’ key on the console. The hey chart 
indicates which letter corresponds to which test loop or function 
to execute: 


Ww: The entire wraparound test 
Analog subtests 
Noise test : 
Interchannel Settling test 3 
Differential Linearity and Relative Accuracy test 
Calibration loop for the mncad 
Print converted analog values loop only 
Logic subtests 
Auto test 
Logic subtests 
Analog subtests 
Noise test : 
Interchannel Settling test - 
Differential Linearity and Relative Accuracy test 


Noise tests on selected channels 


oe WwW for video bit map console terminal (I.E. vT105, 


Base or vector address change 
Get new switch register value 


Help the operator and re-type the test list 
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REQUIREMENTS 


Equipment 


LSi-11 computer with 12K of memory 

1/0 Terminal (LA36, VT100, etc.) 

MNCAD/MNCAM Module 

MNCAD-TA test module 

Bit map for graphic output (I.E. VT105, VT55) <optional> 


Storage 


This program uses 12K of memory. 


LOADING PROCEDURE 


Procedure for loading normal binary tapes should be followed. 


STARTING PROCEDURE 


Control Switch Settings 
Standard PDP-11 Format 


Halt on error 

Loop on test 

Inhibit error typeouts 

Inhibit sizing the number of MNCAD (A/D)'S 
Inhibit iterations ‘ 

Halt for video bit map display 

Loop on error. 

Loop on test in SWR <7:0> 


200 is the starting address of the diagnostic for standard 
tolerances. 204 is the restart address. 210 is the startin 
address of the diagnostic when the tester is connected an 
tighter tolerances are used. 


5.0 OPERATING PROCEDURE 


Start the diagnostic at 200 or 210. The program heading, request 
for initial switch register value. The operator will normally 
depress the ‘RETURN’ k The program now request if the 
MNCAD-TA test module is connected. The operator res s by 
typing a ‘Y'’ or ‘N’' followed by depressing the ‘RETURN’’ key. A 
List of tests, loops, or functions available will be printed out. 
The operator selects the character, according to the table 
listed, and depresses the ‘RETURN’ key. 


A control character (*C) is set aside for interrupting a test and 
transferring control to the beginning of the diagnostic. Hs 
the logic tests, while a reset is being performed, control C wil 
not be executed. Therefore, continue typing control C until it 
is successful. 


For machines without a hardware switch register, location SWREG 
(176) is used as a software switch register. To modify the 
contents of SWREG, depress ‘‘CTRL'* and ‘G'* together. The progres 
responds with the current contents of SWREG and a slash. Type 
the desired new contents of SWREG followed by a carriage return. 


If 'W' is selected, the —— will ask that the MNCAD (A/D)'S 
front panel switches set to ‘TEST’’. If the test module is 


connected, the program will also ask that the test module(s) 
switches be set to single-ended. Set the switches and depress 
‘RETURN’. The program will then give a channel table for the 


MNCAD (A/D) under test. If the test module is connected, the 
program will then ask for channels to test. The channels under 
test must be contiguous. The program will run through the analog 
subtests, the noise test, the interchannel settling test, and the 
differential linearity and relative accuracy test.— . 

If *C'’ is typed, the program will run the calibration routine and 
Loop on the test until it is calibrated and a ‘RETURN’ is typed. 
If a certain MNCAD (A/D) is to be calibrated, use the ‘B’’ command 
to inform the program of its base and vector address. 


If *P’’ is typed, the program will run the print values routine 
and will loop on that test until the operator type ‘CTRL C'’. If 
a certain MNCAD is to be tested, use the 'B’’ command to _ inform 
the program of its base and vector address. 








If ‘A’ is typed, the program will execute the logic tests, analog 
tests, noise, settle, and differential linearity. At the 
beginning of the test, the program will ask that the A/D switches 
be set to ‘TEST’. If the test module is connected, the program 
will also ask that the test module(s) switches be set to 
single-ended. Set switches and depress ‘RETURN’. The program 
will then give a channel tabie for the MNCAD (A/D) under test. 
If the test module is connected, the program will then ask for 
channels to test. The channels under test must be contiguous. 
The program will run through the onenee subtests, the noise test, 
the interchannel settling test, and the differential linearity 
and relative accuracy test. 


If ‘L'’ is typed, the program will then size the number of MNCAD 
(A/D)"S and report the number of units found. The program will 
then execute the logic tests, printing “END PASS*’ when it has 
completed an entire pass. If additional MNCAD (A/D)'S are 
detected, the test will be rum successively on each MNCAD. If 
the test module is connected, the program will ask the operator 
to depress the test module ‘EXTERNAL START’’ switch on the first 
pass. 


5.1 


5.2 


6.0 


Inhibiting auto-size feature 


Logic, auto and wraparound tests will automatically auto-.ize and 
report the number of MNCAD'S it detects on the system. To 
inhibit this feature, set switch register bit 12 to a one. 
Another way to inhibit this feature is to set bit 15 of location 
SENVM (1214). Also, use the program 'B’’ command to modify the 
default base and vector addresses for other than the first MNCAD. 


End of pass typeouts 
At end of pass, the following typeout will occur: 
"END PASS 12 ; TOTAL ERROR COUNT = 5 ;BAD UNITS 0000000000000100"’ 
This indicates that: 
Twelve passes thru the program have been made. 


A total_of 5 errors have been detected. 
Unit # 3 was the unit with errors. 


ERRORS 

This program uses the diagnostic ‘‘SYSMAC’’ package for error 
reporting and typeout. he error information consists of the 
fol Lowing: 

UNIT: Unit number 

ERRPC: Location at which an error was detected. 

STREG: Address of the status register. 

ADBUF F : Address of the buffer 

CHANL : Channel value 


NOMINAL: Expected correct data. 

TOLERANCE: The acceptable deviation from the nominal 
ACTUAL : Actual data 

EXPECTED: Expected correct data 


SEQ 0006 
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MISCELLANEOUS 


Execution time 
Execution time for each of the tests is: 
Calibration: 5 conversions/min 2110 baud 


Print values: 8 conversions/8 seconds @ 110 baud 

Wraparound test: 7 minutes first pass; 22 minutes 
for successive passes 

Logic test: 30 seconds 

Auto test: 8 minutes first pass, 23 minutes 
for successive passes 


Status register and vector addresses 


when testing more than one MNCAD, the difference in addresses is 
4 for bus address and i0 for vector address. These values are in 
VADR (bus address) (1352) and VVCT (vector address) (1354). _ The 
first MNCAD'S status register address must be in SBASE (1244), 
its vector address must be in the low byte of $VECT1 (1240). The 
a who may use the ‘B’’ program command to change the default 
values. 


Switch register 


If a hardware switch register is present and the operator desires 
to use a software switch register and the control G feature, it 
is necessary to load the starting address, set the hardware 
Switch register to all ones (-1), and then start. The program 
will then run with the software switch register. 


Bit map graphic output terminal avaiiable 


The operator may inform the oreerae that the console is a bit map 
terminal (I.E. VT105 or VT55) by using the ‘V'’ command. the 
program will then display the results of the differential 
linearity test on the bit map terminal screen. 


aon 


Testing 


Starting restriction 


If a free-running clock, such as 60Hz from the power supply, is 
attached to the BEVNT bus Line on both Rev level C/D and E 
systems, an interrupt to location 100 will occur when using the 
‘G' and “L"' commands prior to mo he | the first instruction. 
Therefore this program can not disable the BEVNT bus line by 
inhibiting interrupts. 


User systems requiring a free-running clock attached to the BEVNT 
bus line can temporarily avoid this situation by setting the 
PSW(RS) to 200, instead of using the ‘G’’ command, load the PC 
(R7) with the starting address and use the proceed ‘P’’ command. 
Before using the 'L'* command, the PSW(RS) can be set to 200 to 
avoid receiving the BEVNT interrupt after loading the ASS loader. 


Possible program ‘BOMBS'' 


The first two tests of this program check to see if the MNCAD 
responds to the expected address. If the MNCAD does not respond, 
a buss error occurs. Also bus errors cah occur during the time 
the program sizes to see how many MNCAD'S are on your system. 


For more information on the next subject, see Jan. 1976 LSI-11 
ENGINEERING BULLETIN issued by the Digital Components Group. 


Bus errors may alter the preset contents of location 4 before the 
trap is executed, thereby transferring oh ag control to an area 
in the program that was not set up to handle the trap. If this 
peseens. the program will *BOMB’’ and possibly rewrite parts of 
itself. 
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PROGRAM DESCRIPTION 


Logic tests 


These 24 logic subtests run sequentially without further operator 
intervention. its purpose is to check that each of the status 
register bits that are read/write can be loaded and properly read 
back; that initialize clears the external start enable bit, the 
done bit, the interrupt enable bit, the overflow bit, the error 
flag, and the A/D start bit. It also checks that the A/D done 
flag sets at end of conversion and clears when the _ converted 
value is read. It checks the interrupt logic and the correct 
setting of the error flag. 


Calibration routine 


If *C’’ is typed, the program will ask for a channel. Type 
channel n r followed by depressing "RETURN'’. The program will 
ask you if want offset or gain. Apply voltage requested to 
selected channel. Adjust pot requested for 0.00 LSB typeout. 
ee carriage return when adjusted. The last typeout will be 
checked for 0.00 LSB with a tolerance of 0.04 LSB if outside, the 
program will ask you to re-adjust the same pot again. 


Print values routine 


This test begins when the operator types 'P’’. It then loads the 
channel from the switch register bits 0-7 and does a conversion 
on that channel. If SWR bit 13 is down (0), it prints out the 


converted value on the console terminal; if SWR bit 13 is up 
(1), it puts the converted value in the ‘DISPLAY REGISTER’’. The 
operator may change the channel (using the switch register) at 
any time during the test. However, the new values from the new 
channel will not be printed until the next line of 8 values is 
printer. The 8 values on each line correspond to only one 
channel. 


Differential Linearity 


This test determines the width of each state to within 0.01 LSB. 





On 


9.5 


9.6 


Settling test 


The purpose of this test is to verify that the time allowed for 
settling to anew input value after switching channels does not 
result in an error that exceeds the expected amount for such a 


change. 


Noise test 


This test measures the short-term MINC-11 system noise. RMS 
noise equals 1 standard deviation of the Gaussian curve, PEAK 
noise equals 3 standard deviation of the Gaussian curve. 


Analog tests 


These 6 subtests check the channels and their output. 


SEQ 0010 
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BASIC DEFINITIONS 
OPERA hy SWITCH SETTINGS 


HOOKS 
APT eae BLOCK 
COMMON TAGS 

APT MAILBOX~E TABLE 
ERROR POINTER TABLE 
MISCELLANEOUS, TEMPORARY, AND STORAGE LOCATIONS 
INITIAL START-UP, HOUSEKEEPING, AND DIALOGUE 
a Ma tL THE COMMON TAGS 


TYPE PROGRAM NAME 

GET VALUE FOR SOFTWARE SWITCH REGISTER 
OPERATOR INPUT DECODER 

| eee THE NUMBER OF MNCAD'S ON THE SYSTEM 

(IN-HOUSE TESTER ONLY) 

T TEST (IN-HOUSE TESTER ONLY) 


- BIT14 
LOAD AND READ BACK INTERRUPT ENABLE BIT6 
io AND READ BACK CLOCK gt 3 START ries BITS 


AND READ BACK E 
INIT CLEARS BITS or 8-14 
INIT CLEARS ERROR FLAG 
FLAG SETS “a a CLEARS ON END OF CONV. 
INIT CLEARS DONE F 
TEST A/D DONE FLAG CLEARS SHEN READ CONVERTED VALUE 
TEST ALL 'O’S RESULTS USING MAINT. ADTST. BIT 
TEST ALL °1°S RESULT USING MAINT. ADTST. BIT 
GENERATE INTERRUPT WHEN DONE FLAG SETS AFTER CONVERSION 
TEST INTERRUPT OCCURS WHEN ERROR AND I.E.E. IS SET 
TEST ERROR FLAG SETS IF 2ND CONVERSION ENDS BEFORE READING BUFFER 
TEST ERROR FLAG SETS IF START 2ND CONV. BEFORE DONE FLAG SETS 
TEST CHANNELS 0-7 FOR SINGLE ENDED 
TEST CLOCK OVERFLOW STARTS A/D (TESTER ONLY) 
30 TEST EXTERNAL START STARTS A/D (TEST MODULE OR TESTER) 
WRAPAROUND TEST SECTION 
131 TEST CHO GROUND 


OR TESTER) 
(DWARF OR TESTER) 
(DWARF OR TESTER) 
HAE, S (DWARF OR TESTER) 
CHANNEL FOR +- 2.2 VOLTS IN DIFFERENTIAL MODE 
1 VERNIER OFFSET DAC ON CHO 


TEST RAMP RANGE, CH3 

NOISE TEST, 1 EDGE 

INTERCHANNEL SETTLING TEST, 1 EDGE 

DIFFERENTIAL LINEARITY AND RELATIVE ACCURACY TEST (CHANNEL 3) 
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TABLE OF CONTENTS 


CALIBRATION SECTION 

SWITCH GAIN MANUAL INTERVENTION TEST 
PRINT VALUES ROUTINE 

LOGIC TEST SECTION START-UP 

AUTO TEST START-UP 

WRAPAROUND TEST START-UP 

NOISE TEST START-UP 

DETERMINE IF MORE MNCAD'S TO BE TESTED 
END OF PASS ROUTINE 

ASCII MESSAGES 

ASCII TEXT MESSAGES 


ROUT INE 
ERROR MESSAGE TYPEOUT ROUTINE 
POWER DOWN AND UP ROUTINES 
TYPE ROUTINE 
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
APT COMMUNICATIONS ROUTINE 
BINARY TO OCTAL (ASCII) AND TYPE 
BINARY TO ASCII AND TYPE ROUTINE 
TRAP DECODER 
TRAP TABLE 
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TITLE CVMNA-A MNCAD/MNCAM DIAGNOSTIC 
:*COPYRIGHT (C) 1978 

:*DIGITAL EQUIPMENT CORP. 
#MAY YNARD, MASS. 01754 


; #PROGRAM BY GEORGE STEVENS 


ieTH 1S PROGRAM WAS ASSEMBLED USING THE er MAINDEC SYSMAC 
; #PACKAGE (MAINDEC-11-DZQAC-C3), JAN 19, 1977. 


*SBTTL BASIC DEFINITIONS 


ca ae OF THE STACK POINTER *** 1100 *** 
-EQUIV EMT,ERROR 3;BASIC DEFINITION OF ERROR CALL 
-EQUIV I0T,SCOPE 7;BASIC DEFINITION OF SCOPE CALL 


: *MISCELLANEOUS DEFINITIONS 
HT= 11 ::CODE FOR HORIZONTAL TAB 
::CODE FOR LINE FEED 
::CODE FOR CARRIAGE RETURN 
000200 00 >:CODE FOR CARRIAGE RETURN-LINE FEED 
177776 +:PROCESSOR STATUS WORD 
.EQUIV PS,PSW 
177774 STKLMT= 177774 ;STACK LIMIT REGISTER 
ROGRAM INTERRUPT REQUEST REGISTER 
+ :HARDWARE SWITCH REGISTER 
DDISP= 177570 + :HARDWARE DISPLAY REGISTER 


3 *GENERAL PURPOSE REGISTER DEF INITIONS 
RO= 20 RAL 


; GENE 
: ESTACK POINTER 
3 PROGRAM COUNTER 


;*PRIORITY LEVEL DEFINI TIONS 
PRO= 0 


PR1= 
PR2= 
PR3= 
PR4= 
PR5= 
PR6= 
PR7= 3;PRIORITY 


3*"'SWITCH REGISTER’’ SWITCH DEFINITIONS 
ooh a 100000 


NOUS WN Oo 


(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
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EQUIV 
-EQUIV 


:*DATA 
BIT15= 


ee ee me ek me em ee ee el eh ek ek ek eB dd ed ad od od od od 3 2 od 
ue Ne ee es ee ee ee ee ee ee ee ee ee ee ee ae ee ee ee ee ee ae ee a ae ae a a a ee a es a er a ee a a ae ae 
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;*BASIC "'CPU"’ TRAP VECTOR ADDRESSES 
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BASIC DEFINITIONS 


000200 000002 


001556 
001620 
001626 
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. SBTTL 


Perererererarar a are: 


Be Fe Be Be Be Be Be Be Be Be Be 


* 


: 


AVECT1= 


DISPREG: 
SWREG: 


TIME OUT AND OTHER ERRORS 
apres AND ILLEGAL INSTRUCTIONS 


Py e ; TRACE T 
BREAKPOINT TRAP (BPT) 
: SINPUT/QUTPUT TRAP (10T) **SCOPE** 


IL 
: sEMULATOR TRAP (EMT) **ERROR** 
RAP’ TRAP 


getty KEYBOARD VECTOR 
‘oo PRINTER VECTOR 
ROGRAM INTERRUPT REQUEST VECTOR 
~ GPERATIONAL switéi SETTINGS 


SWITCH USE 

HALT ON ERROR 

LOOP ON TEST 

INHIBIT ERROR TYPEOUTS 

INHIBIT SIZING # OF MNCAD'S 

INHIBIT ITERATIONS 

HALT FOR VIEWING BIT MAP TERMINAL DISPLAY 
LOOP ON ERROR 

LOOP ON TEST IN SWR<7:0> 


SWOOO—NMWEM 


171 
400 


00 


-=100 
-WORD 104,200,2 
-SBTTL TRAP CATCHER 


-=0 

:*ALL ur: LOCATIONS FROM 4-776 CONTAIN A **.+2°' 
[*AND "JSR PC,RO'' ear ge TO CATCH ILLEGAL INTERRUPTS. 
3 *AND INTERRUPTS TO THE WR VECTOR. 

*LOCATION 0 CONTAINS A 0 TO CATCH IMPROPERLY LOADED 

i “VECTORS. 


“WORD IOTRD,200 
*=174 


HANDLE BUSS ERROR. 


0 72SOFTWARE DISPLAY REGISTER. 
0 3:SOFTWARE SWITCH REGISTER. 


BEGIN START ADDRESS 
@ARBE G2 RESTART ADDRESS 
@ABEGIN2 START ADDRESS FOR OPTION TESTER 


SEQ 0015 
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-SBTTL ACT11 HOOKS 


ZSERIES IIIS IOI IIIS I TOTTI TOT TTT TOTTI TIE 
;HOOKS REQUIRED BY ACT11 
$SVPC= SAVE PC 


331)SET LOC.46 TO ADDRESS OF SENDAD IN .$EOP 


::2)SET LO LOC. 322 TO ZERO 
.=1000 os 
"SBTTL APT PARAMETER BLOCK 


ICICI ICICI SII IOI II IOI IOI TOT TOR ITT IT AIA IA ISA IAISASSSISASSSSSSSASS 
“SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
SOIREE II IISICIIOISIOIOI IOI III IIOIOI I IOI IIOI IORI ATA AIA IAI SAIS ASS AS SM. 
33SAVE CURRENT LOCATION 
33SET POWER FAIL TO POINT TO START OF PROGRAM 
33FOR APT START UP 
3sPOINT TO APT INDIRECT ADDRESS PNTR. 
;sPOINT TO APT HEADER BLOCK 
7sRESET LOCATION COUNTER 
DDI IO ISI IOIOISICI IOI IOIOIEISIIIICIIOIIOICIIOI IOC TOT TOR IO A IAS IANS ASIANS ASSN 
;SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
; INTERFACE SPEC. 


;TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 
SMAIL ; ADDRESS OF APT MAILBOX (BITS 0-15) 
1200. ;;RUN TIM OF LONGEST TEST 
ae feet TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
1700. ITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
SE TEND-SMAIL/2 3;LENGTH MAILBOX~E TABLE (WORDS) 


od oS os fo 
eee ree ew 


( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
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-SBTTL COMMON TAGS 


REE EREREEE EEE EREEEEE 


:RTHIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
[*USED IN THE PROGRAM. 


SCMTAG: 7-START OF COMMON TAGS 


7:CONTAINS THE TEST NUMBER 

33 ERROR FLAG 
SUBTEST ITERATION COUNT 
SCOPE LOOP ADDRESS 
SCOPE RETURN FOR ERRORS 
TOTAL ERRORS DETECTED 
My CONTROL hg 


— uw 


88888388sssss 
BRNBSARNSRRARSS 


4 SS SS SS 


DAT. 
+ RESERVED--NOT TO BE USED 


3 AUTOMATIC MODE INDICATOR 
32 INTERRUPT MODE INDICATOR 


ADDRESS OF SWITCH REGISTER 
¢ ADDRESS OF pisplay REGISTER 
TTY KBD STATUS 
::TTY KBD BUFFER 
+: TTY PRINTER STATUS REG. ADDRESS 
+: TTY PRINTER BUFFER REG. ADDRESS 
0 >: CONTAINS NULL CHARACTER FOR FILLS 
‘ ::CONTAINS # OF FILLER 8 GUAM TES REQUIRED 
0 


leleleleleloleolelon loleleleloleleia) 


o°9 
Se 
% 


tf FILL CHARS. AFTER A 
:""TERMINAL AVAILABLE'’ FLAG (BIT<07>=0=YES) 
+ SMAX. NUMBER OF ITERATIONS 
S TESCAPE ON ERROR ADDRESS 
/?/ QUESTION MARK 
<15> + > CARRIAGE RETURN 
<12> :zLINE FEED 
FLIER EEE EEE ERE ERE ERE RE ERE REE EREEREERERE EEE 


-SBTTL APT MAILBOX-ETABLE 


J ARRAAAAE EAA EERERRAERAEAEEEERAERERERARREREERERRRRRRRERES 


(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 


72APT MAILBOX 
MESSAGE TYPE CODE 
:zFATAL ERROR NUMBER 
:; TEST NUMBER 


3;1/0 UNIT NUMBER 
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SEQ 0018 


; sMESSAGE ADDRESS 
3 sMESSAGE LENGTH 
3;APT ENVIRONMENT TABLE 


YTE 
; ENVIRONMENT MODE BITS 
STAPT SWITCH REGISTER 
:;USER SWITCHES 
;CPU TYPE, fou Toe 
iTS wag | =CPU T 
11/04=01, "11/05=02, 11/20=03,11/40=04,11/45=05 
11/70=06.PD Q=07 .Q 0=10 
BIT 10=REAL TIME CLOCK 
BIT 9=FLOATING POINT PROCESSOR 
BIT 8=MEMORY MANAGEMENT 
+ HIGH ADDRESS ,M.S. BYTE 
:MEM. TYPE BLKA1 
MEM.TYPE BYTE == (HIGH BYTE) 
900 NSEC CORE=001 
300 NSEC BIPOLAR=002 
500 yw ¥ C MOS=003 
;;HIGH ADDRESS ,BLKA#1 
MEM.LAST ADDR.=3 BYTES, THIS WORD AND LOW OF ‘'‘TYPE’’ ABOVE 
es HIGH ADDRESS,.M.S. BYTE 
feng TYPE ,BLKA2 
M.LAST ADDRESS ,BLK#2 
THIGH ADDRESS ,M.S.BYTE 
2 3MEM. TYPE ,BLK#. 
3MEM.LAST ADDRESS ,BLKA3 
:;HIGH ADDRESS,M.S.BYTE 
2 7MEM. TYPE ,BLKAS 
;MEM.LAST ADDRESS ,BLKA4 
zEINT ERRUPT VECTOR#1,BUS PRIORITY#1 
ZINTERRUPT VECTORA2BUS PRIORITYA2 
7:BASE ADDRESS OF EQUIPMENT UNDER TEST 
 IDEV VICE MAP 
7; CONTROLLER DESCRIPTION WORDA1 
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-SBTTL ERROR POINTER TABLE 


;*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 

[*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

[*LOCATION $ITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE iL # i" PERTINENT. 

> *NOTE1: IF SITEMB IS 0 THE ONLY PERTINENT DATA IS (SERRP 

:*NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


3;POINTS TO THE ERROR MESSAGE 
3sPOINTS TO THE DATA HEADER 
;sPOINTS TO THE DATA 
3zPOINTS TO THE DATA FORMAT 


ae ee ee ee ee ee ee el 


OO A 2S 2 SS 2S a I SS 
eNews eles ee ea eae a 


023733 ; E :MNCAD STATUS REG. ERROR 
SERRPC STREG EXPECTED ACTUAL 
*$ERRPC, STREG, $GDDAT, $8DDAT 


;MNCAD FAILED TO INTERRUPT 
sERRPC STREG ACTUAL 
;SERRPC, STREG, $8DDAT 


s;MNCAD UNEXPECTED INTERRUPT 
sERRPC STREG 
;SERRPC, STREG 


;MNCAD ERROR ON A/D CHANNEL 
;ERRPC STREG CHAN NOMINAL TOL ACTUAL 
;SERRPC,STREG, CHANL , SGDDAT , SPREAD , S$BDDAT 


3 5 
AE 024476 024620 EMS ,DH5,DT5,DF1 sEXISTING MNCAD NOW FAILS TO RESPOND 


; 6 
eas 024522 024632 EM6,DH6,DT6,DF 1 :;BUS ERROR ON SPECIFIED DEFAULT ADDRESS 
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es SS SS 
FWN—OCVONAUSWN—O 


— 
Nm 
wi 


ERROR POINTER TABLE 


171000 
000400 
171004 
000410 
171010 
000460 
171014 
000470 
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MNCADO: 


I 
WFTEST: 


> AVECT1+2 
: AVECT1+4 sERROR VECTOR ADDRESS 
: pore 


SEQ 0020 


ABASE ;ADDRESS OF MNCAD #0 
AVECT1 ; VECTOR OF renaiagl ” 
ABASE +4 : 
AVECT1+10 ; 
ABASE+10 é 
AVECT1+60 ; 
ABASE+14 : 
AVECT1+70 3 


MISCELLANEOUS, TEMPORARY, AND STORAGE LOCATIONS 
E ADDRESS OF STATUS REGISTER 
UPPER BYTE OF STATUS REG. 
ADDRESS OF A/D BUFFER 
;VECTOR ADDRESS 


BASE CHANNEL 
END CHANNEL 


KNOWN GOOD A/D CSR 
;KNOWN GOOD A/D DBR 
KNOWN GOOD A/D VECTOR 
:CLOCK CSR 

:CLOCK BPR 

:DRV11 CSR 

[DRV11 DOR 

[DRV11 DIR 

NO. OF WIDE STATES 
NO. OF NARROW STATES 


:NO. OF SKIPPED STATES 
AREA 


“RESTART INDICATOR 

FIRST CHANNEL 

SECOND CHANNEL 

NO. OF MNCAD'S TO BE TESTED 
:NO. OF MNCAD'S TO BE TESTED 
; DUMMY CHANNEL 


[CHANNEL VALUE 
RANDOM 


3; VALUES 

;RMS NOISE VALUE 

7PEAK NOISE VALUE 

:BIT MAP TERMINAL FLAG 
:DEVIATION FROM THE NOMINAL 


7SAR_ VALUE 
TIME DELAY COUNTER 
SEDGE VALUE 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


zMIN VALUE 
;0= NO DWARF ;BIT15 =1 TESTER; NON-ZERO = DWARF 
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CVMNAA.P11 MISCELLANEOUS, TEMPORARY, AND STORAGE LOCATIONS SEQ 0021 
s;MAX VALUE 
‘PERCENT FOR SAR ROUTINE 
000000 
000000 : ;BAD UNIT MAP 
000001 : CURRENT UNIT MAP 
000000 : 
012737 001532 ‘ #1$, SESCAPE ::ESCAPE TO 1$ ON ERROR 
001103 SERFLG 
001162 : C SESCAPE ;RETURN ESCAPE TO NORMAL 
sUNEXPECTED INTERRUPT 
000001 : +E ts :DOES IT RETURN TO A WAIT? 


#2, (SP) ‘BUMP RETURN ADDRESS 


_ 
ANISSRLIELG 


INITIAL START-UP,HOUSEKEEPING, AND DIALOGUE 
WF TEST 


#200,RO ;LOAD STARTING ADDRESS POINTER 
#137, (RO)+ ;LOAD JUMP 

BEGIN, (RO) + 

#137, (RO)+ 


lis 
175 
176 
177 
178 
179 
180 
181 
182 


MO #BEGINZ, (RO)+ 
RBEG2: po TEMP1 ;SET RESTART FLAG 


RBEG1 
001476 BEGING: MBITIS,WFTEST ; INDICATE TESTER IS CONNECTED 
RB TEMP1 CLEAR RESTAT FLAG 


ESET 

INITIALIZE THE COMMON TAGS 

THE COMMON TAGS ($CMTAG) AREA 
AHSCMTAG ,R6 FIRST LOCATION TO BE CLEARED 
(R6)+ . 73CLEAR MEMORY LOCATION 


#SWR,R6 33D ? 
~~ 7-6 ;;LOOP BACK IF NO 

WSTACK K,SP :;SETUP THE STACK POINTER 

:: INITIALIZE A FEW VECTORS 
#SSCOPE ,A#IOTVEC Hf 4 VECTOR FOR SCOPE ROUTINE 
#340, a#IOTVEC+2 ; : EL 7 
#$E RROR, aFvEMTV EC ‘EMT VECTOR FOR ERROR ROUTINE 
#340, a#EMTVEC+2 se. 7 
#S$T TRAP, @#TRAPVEC at VECTOR FOR TRAP CALLS 
#340, @ATRAPVEC+2; LEVEL 7 
#SPWRDN, @#PWRVEC ;;POWER FAILURE VECTOR 
#340, a4PWRVEC+2 2eLEV VEL 7 
SENDCT , SEOPCT : SETUP END-OF-PROGRAM COUNTER 
STIMES +: INITIALIZE NUMBER OF ITERATIONS 

SESCAPE ; CLEAR THE ESCAPE ON ERROR ADDRESS 


Fan tte hed ta i ate ha a ha a i a 1 i a a 
— oe os Ss os So es SS Ss SS oe 
eee Ne Ne es ee ee ee ee ae ae a a a ee ae ee ae 
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DIAGNOSTIC 
OMMON T 


INITIALIZE THE 


112737 
012737 
012737 


013746 


012737 


012737 


000403 
112737 


177777 


002050 
000176 
000174 
000004 
001176 
000200 
001212 
005046 
012746 
027422 


000002 
024720 
001430 


000042 
023075 


177777 
016500 
002252 
000042 
001210 
001140 


000001 


001211 
001140 


027410 
027412 
027414 
027416 
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SEQ 0022 


#1, SERMAX ALLOW ONE ERROR PER TEST 
#.«$LPADR i HINITIALIZE THE LOOP ADDRESS FOR SCOPE 
HE ERROR LOOP ADDRESS 


MOV ,SLPERR UP T 

7sSIZE FOR A HARDUARE righ ReciSTER. IF NOT FOUND OR IT IS 

3 EQUAL id A ‘'~1"*, SETUP F her TWARE SWITCH REGISTER. 
@WERRVEC, SP +3 SAVE ERROR VECTOR 
#608 OWERRVEC. SET UP ERROR VECTOR 
ADSWR , SWR Z:SETUP FOR A HARDWARE SWICH REGISTER 
#DDISP,DISPLAY ;;AND A HARDWARE DISPLAY REGISTER 
#~1 ,aSWR 2s TRY TO REFERENCE HARDWARE SWR 
66$ ; CH IF NO TIMEOUT TRAP OCCURRED 

HARDWARE rh IS NOT = -1 


65$ ; 
#65$, (SP) SISET UP FOR TRAP RETURN 


ASWREG , SWR 3;POINT TO SOFTWARE SWR 
#DISPREG,DISPLAY 
(SP)+,@MERRVEC ;;RESTORE ERROR VECTOR 


$SPASS 3sCLEAR PASS COUNT 

#APTSIZE , SENVM 2s TEST USER SIZE UNDER APT 
7 YES,USE NON-APT SWITCH 
#HSSWREG , SWR Z:NO,USE APT SWITCH REGISTER 


OVERLAY THE ‘‘STYPE’’ ROUTINE 
Vv #5046, $TYPE CLR -(SP) 
#12746,$TYPE+2 :MOV #STYPE+12,-(SP) 
WSTYPE+12,$TYPE+4 
#RTI,STYPE+6 zRTI 
PC,S$TKINT ENABLE TKB INTR. 
= TEST IF RESTART 


TBR IF YES 
ar42 :TEST IF CHAIN MODE 
20$ ;BR IF CHAIN MODE 
208 -INITVT sINITILIZE THE TERMINAL 
-SBTTL _TYPE PROGRAM NAME 
7; TYPE THE NAME OF THE PROGRAM IF FIRST PASS 

INC #~1 ssFIRST TIME? 


CH IF YES 
YPE .69$ YPE ASCIZ. STRING 
Ger VALUE FOR SOF TWARE suitcH REGISTER 
TST ade 73ARE WE RUNNING UNDER XXDP/ACT? 
70$ ; BRANCH IF YES 
SENV 41 2 ¢ARE WE RUNNING UNDER APT? 
70$ sBRANCH IF YES 
ome {SOFTWARE SuITCH REG SELECTED? 


CH 
71$ 7:GET SOFT-SWR SETTINGS 
#1,$AUTOB 3:SET AUTO-MODE INDICATOR 
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CVMNAA.P11 GET VALUE FOR SOFTWARE SWITCH REGISTER 


3769S: 
68s: 
000010 
013622 


013736 
014052 


010776 
001430 


001476 


001165 
017745 
017267 


001476 
000040 
000131 
001476 
023127 MTESTO: 


MTEST1: 
176376 


121027 


K 2 
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SEQ 0023 


68$ 3;GET OVER THE ASCIZ 
<CRLF>#CVMNA=A MNCAD (A/D) DIAGNOSTICA<CRLF> 


@WRESVEC,-(SP) ;SAVE RESERVED VECTOR 
#1$,RESVEC 3SET UP ILL LEGAL INST. TRAP 
#1,R0 SET RO T 

RO {TRY SOB ONS TRUCTION 
477001, DELAY1 :SET UP FOR SOB 
#77001,DELAY2 
#77001, “DELAYS =: 
(SP) +, (SP)+ :POP TWO WORDS OFF STACK 
; INSTRUCTION FAILED 


“RESTORE ERROR VECTOR 
‘INITIALIZE ADDRESSES 
SRANDOM NO, VARIABLES 


;SET_UP TOLLERANCES 
TEST IF CHAIN/APT 


:GO TO LOGIC TESTS 
TEST IF RESTART 


;CHECH IF TESTER CONNECTED ? 
MTESTO ;BR IF YES 


OPERATOR INPUT DECODER 
-SCRLF 


- YESNO sASK FOR INPUT 
-DWRF ABOUT DWARF MODULE 


(SP)+,RO 3GET INPUT 

WF SET NO DWARF 

ENSURE UPPER CASE 

sTEST IF 1ST CHAR IS Y 

7BR IF NOT ‘'Y'’ 

SET DWARF CONNECTED FLAG 
;TELL THE OPERATOR THE STORY 


ENABLE TKB INTR. 


min. -@$TKS 
#1$,-(SP) 


;LOWER PS 
: THINGS 
“TYPE THE ‘DOT’ 
READ ANSWER 


1S IT A? 


(SP) +,RO 
#40, (RO) 
(RO) ,A°A 
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CVMNAA.P11 


001002 
000137 
121027 
001002 
000137 
121027 
001002 
000137 
121027 
001002 
000137 
121027 
001002 


000137 
121027 
100 


DIAGNOSTIC 
OPERATOR INPUT DECODER 


011040 
000103 
010122 
000120 
010614 
000114 
010 76 
000127 
011116 


000102 


012306 
000110 


000107 


000126 
001460 
011116 
000116 
011156 
000106 
010376 
017345 
001244 
001202 
003060 
176110 


000004 
001202 
001210 


010000 
000004 


001126 
000004 
001126 


176074 
001202 


MACY11 27(654) 


= . 
19-SEP-78 08:51 
2s 
BEGINA 
(RO) ,#°C 
3$ 


BEGINC 
awe 


4 
BEGINP 
(RO) AL 
5$ 

BEGL 
(RO) AW 
6$ 
BEGINW 
(RO) ,A'B 
7$ 


BASEXC 
(RO) ,#°H 


PAGE 3-4 
SEQ 0024 


3zNO, TRY C 
:GO TO AUTO TEST 
sis It ¢? 
3zNO, TRY P 
‘Is HB CALIBRATION LOOP 
TRY L 
0 feet CONVERSIONS TEST 


:60 
;1S 
;;NO 
;GO 
71S 
; ;NO 
;GO 
;1S 
; NO 
;GO 
F 


T 
RY. * AGAIN 
HANGE BASE AND VECTOR ADDRESS 


T H? 
szYES, HELP THE OPERATOR 
<3NO, TRY AGAIN 


Se 
emdte tus 
47) 


RUN’ NOISE TESTS 
; mS a 


33N0, AGAIN 
;RUN switch GAIN/PREAMP MANUAL TEST 


WAIT FOR CHARACTER 


MTEST1 
DETERMINE ie NUMBER OF MNCAD'S ON THE SYSTEM 
$BASE , SBDDAT 


SUNIT 

#2$ ,ERRVEC 
@SBDDAT 

#4 , SBDDAT 
SUNIT 

SENV 

3$ 
#SW12,QSWR 
#4. ,$UNIT 
1$ 


3$ 
(SP)+, (SP)+ 
SUNIT 


a442 
3$ 


GET BASE ADDRESS 

CLR UNIT ore 

[LOAD RETURN ADDRESS 
:TEST IF nye te EXISTS 
[UPDATE BUS ADDRESS 


[UPDATE UNIT COUNT 
:TEST IF M0 NOT SIZE*’ 


“BR IF NO SIZEING 

TEST IF INHIBIT SIZING IS SET 
“TEST IF MAX NUMBER 

“BR IF NOT 


:BR IF MAX 
RESTORE STACK 
TEST IF ANY EXIST 


3;BR_IF ANY ARE THERE 
TEST IF XXDP CHAIN MODE 
BR IF YES 
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CVMNAA.P11 DETERMINE THE NUMBER OF MNCAD'S ON THE SYSTEM SEQ 0025 


;BASE ADDRESS CAUSED A BUS TRAP 
(SP) + ;POP 1 ARG. 
016412 


SEOP 
016612 000004 : MIOTRD,ERRVEC 
200 MOV 


000 
001506 
001476 


022074 
001202 


022117 
001202 


016412 
001202 
100000 


#200, ERRVEC+2 
EVER 


4$ 
WF TEST 
$ 


-FOUND1 
SUNIT ,-(SP) 


SEOP 
SUNIT,E 
minis, CHER 
EVER, SUNIT 
5$ 

EVER. TEMP 
SUNIT 

EVER ,NMBEXT 
NMBEXT 

PCF IXONE 
BADUNT 
-(SP) 
#6$,-(SP) 
PC 


4 IF # ae BEEN REPORTED 


:IF YE 
TEST IF_IN TESTER MODE 
7BR IF TESTER 

TELL OPERATOR # OF MNCAD'S FOUND 
[PUT # TO BE TYPED ON STACK 


:FINISH MESSAGE 
cee 


on UNITS 


Y UNI 
‘POP 1 ARG. OFF STACK 
REPORT EOP 

sSAVE THE # OF MNCAD'S FOR LATER 
TSET ‘REPORTED # FLAG'' 


i IF ANY HAVE GONE AWAY 


IF ALL ee STILL THERE 
SAVE FOR ERROR REPORT 
3EXISTING hs FAILED TO RESPOND 
sRESE T POINTER 


sADJU: 
3FIX BUS AND VECTOR — 


;RESET BAD UNIT INDICAT 
;LOWER PRIORITY LEVEL 0 


sEXIT 
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CVMNAA P11 
003266 


DETERMINE THE NUMBER OF 


012737 


DIAGNOSTIC 


015550 
001426 
015664 
021014 
015502 


021132 


020433 
015550 
001426 
015664 
021014 
015502 


021132 
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MNCAD'S ON THE SYSTEM SEQ 0026 


BEGINL: 


{RRAAARAAARAAKREREREREE, RERERAEAAEKEREKREKREREEEKREEEEEKEEERREKEKRKKK 


3*TEST 1 +15 VOLT TEST (IN-HOUSE TESTER ONLY) 


{RRA AAERREREREREREREERERERREEREEEEREREEAEREREREEEREEEREREREERERR 


i611: #TST1,$LPADR 
MO’ 3;D0 1_ ITERATION 
SET UP TEST NUMBER 


31S PROGRAM RUNNING IN WESTFIELD MODE? 
3zNO, SKIP FIRST 2 TESTS 
:b0 FIRST 2 TESTS ON 1ST PASS ONLY 


;RESET PRIORITY 


-(SP) 
#1$,~-(SP) 


,1P15 sTYPE ‘#15 = °' 
R5,GCONVT ZCONVERT CHANNEL 12 


TEMP ,R3 sGET TEMP 

PC,CONV15 TYPE VOLTAGE 
2 SPACE TYPE 4 SPACES 
R5, COMPAR TEST RESULTS 


2s 
. OKMSG PE OK"? 
BR TST2 : GOTO NEXT TEST 
2$: -ERMSG :TYPE ****ERROR**"' 
PC ,WHICHV SINDICATE ERROR UNIT 
SERTTL [UPDATE ERROR COUNT 


4 FARRAR ERE EERE EERE REE REERRERERE REE RE 


TEST 2 -15 VOLT TEST (IN-HOUSE TESTER ONLY) 


{URS IARC SISOIUICICIOIOIOIOIII IO IOI IITA TIS ISAT SSIS IAS SSIS ISSA AS IISA 
TST2: 

#1,$TIMES 3;D0 1, ITERATION 

2™M15 TYPE ' 

RS,GCONVT = CONVERT CHANNEL 11 


TEMP ,R3 GET TEMP 

a” CONV15 TYPE VOLTAGE 
PACE TYPE 4 SPACES 

RS. COMPAR TEST RESULTS 


a OR 
YPE "ox 


OKMSG 

TST3 :1G0TO NEXT TEST 

-ERMSG ;TYPE ****ERROR**"' 

PC ,WHI CHV : INDICATE BAD UNIT 
SERTTL [UPDATE ERROR COUNT 
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FLOAT A ONE THRU MULTIPLEXER BITS SEQ 0027 


RRR REE EREEREEEREEREEKEEEEEEEEEKEERKEKEEKKEEKEKEEK 


FLOAT A ONE THRU MULTIPLEXER BITS 


REAR ERE EERE REE EEEEEEEEEEREKEKEEEEEKKEKEKEEEKEEEKEKEKRRKEKEK 


1813: 
#STN-1 ,STSTNM ENSURE PROPER TEST NUMBER 
P [LOAD FIRST BIT 
2$: ;LOAD EXPECTED VALUE 
:READ STATUS REGISTER 
CLEAR NXC BIT 
ScDDAT, - SBDDAT [COMPARE RESULTS 


1 sFAILED TO LOAD + READ BIT 
1$: SGDDAT ; NEXT BIT 
SGDDAT ,ABIT14 FINISHED? 
2s ;;NO,GO 0 NEXT TEST 
DEAE IO OID SUISSE OTIC ICIS IOI IOI TOTTI TIT TT IT TE 


TATEST & LOAD AND READ BACK ERROR I.E. BIT14 


BUSES ISIS TO IOIIIISIISIIOI IO IOC OI TTT TT TTT T ISA A IAS 


TST4: SCOPE 
MOV #B1T14,$GDDAT 
CHKIT 
ERROR 1 :FAILED TO LOAD + READ ERROR I.E. 
DEER ICICI SCIOTO STI EISIOI TIO IOI TOIT TOT TT TT ITT IASI 
TRTEST 5 LOAD AND READ BACK INTERRUPT ENABLE BIT6 
UIA IOI IOI IC OIOIIUIISIIEIOISISIOOIIOICIOIOIIOIIOI I TOTITOT TT TTT TT TT T TT TTI 
TST5: SCOPE 
175530 MOV HUNEXP , VECTOR ;SETUP FOR UNEXPECTED INTERUPT 
175524 #200, aVECTRI [LOAD BR LEV 


BR L 
001124 #B1T6,$GDDAT ;LOAD EXPECTED DATA 


;FAILED TO LOAD + READ INTERRUPT ENABLE 
FDIS III ICICI UII IOI ITO III IOI TIO A IOI AISI AISI IA ISSSISSISISS SSSA 
;*TEST 6 LOAD AND READ BACK CLOCK OVERFLOW START ENABLE BIT5 
USAIN ICICI IOC IOIO III RIOTS IIIS AISA IIISIIISSISSAISS ASSIS SSSA 
TST6: SCOPE 
001124 eit #BITS,$GDDAT ;LOAD EXPECTED DATA 
ERROR 1 FAILED TO LOAD + READ CLOCK OVERFLOW START ENAB 
CDSCC ICICI IRI TAT TITS IIIT III IISSAISSSS SSSA 
s*TEST 7 LOAD AND READ BACK EXTERNAL START ENABLE BIT4 
ISI IORI ICICI IOC III IOI III IIR I IORI ITT IIIA IIIS IAISSISS ASSIS SSSA SIA 
TST7: SCOPE 
001124 ae #B1T4,$GDDAT ;LOAD EXPECTED DATA 
ERROR 1 FAILED TO LOAD + READ EXT. START ENABLE 
CDSS IOI OITA TI ANITA ASI SASS SIS 
z*TEST 10 LOAD AND READ BACK MAINT. TST BIT2 
[ICI IORI IOI I ICICI IOIOICICICIOIOI IIIT RIOR II TOT TTT IIIA III ISAII SASSI SSSI SSA 
TST10: SCOPE 
001124 are : #BI1T2,$GDDAT 
ERROR 1 ;FAILED TO LOAD + READ BACK MAINT. TST 





On 
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CVMNAA.P11 11 LOAD AND READ BACK ENABLE I.D. BITS SEQ 0028 


000300 
001124 
077574 


000100 


001124 


001124 


001160 
175364 
175146 
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5 LRA RRR ERERRERE REAR REE RRR EERE REERRERER ERE EEE 


:*TEST 11 LOAD AND READ BACK ENABLE I.D. BITS 


5 RARER EERE ERE RR ER REE RE EERE REE RR E REE EERE ERE 


TST11: SCOPE 
MOV 


4 #B1T3,$GDDAT 
ERROR 1 FAILED TO LOAD + READ ENABLE I.D. BIT 


FARRER REE REAR ER ERR EERE REREAD 


s*TEST 12 LOAD AND READ BACK ERROR FLAG BIT15 


© RRR EEE EERE EREREEREEEERKEREEKERERRRERERKEKK 


TST12: SCOPE 
mov #B1T15,$GDDAT  ;LOAD EXPECTED DATA 
ERROR 1 :FAILED TO LOAD + READ ERROR FLAG 


EAC IE ICIS UICC SISIISI ISIS IUIOI SITIO IOI II IIIT TT TTT TT TTT ITA ATA 


5 ATEST 13 TEST INIT CLEARS BITS 2-6,8-14 


RAKE EERE KEEEEEERKEEEKEKEKEEEEKEEEKREEEREEKEEKKEERKEKEKEKE 


78113: 
#300, $TIMES ::D0 300 ITERATIONS 
SGDDAT st EXPECTED DATA 
2$: MOV #77574,@STREG :SET STATUS REGISTER 
s INITIALIZE 
#100, a$TKS *SET INTRPT. ENABLE 
:GO CHECK RESULTS 
1 [RESET FAILED TO CLEAR AD ST. REG. BITS 
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CVMNAA.P11 T14 TEST INIT CLEARS ERROR FLA SEQ 0029 


LRRRERARERRREREERE ERR ER EEE ERE ERE RRR EERE EKER EEE EERE EERE ERE EH 
ATEST 14 TEST INIT CLEARS ERROR FLAG 
ERR AERAEEEARKEEEEERKKEEKKEEEEEKEKEEEEEEKKEEEEKEKEEEREEREE 
TST14: SCOPE 
001160 MOV #300, $TIMES ;D0 7 ITERATIONS 
175332 MOV #B1T15,aSTREG ;SET BIT 15 
RESET ‘ISSUE. INIT 
175114 nace #100, a$TKS sSET INTRPT. EN. FOR KEYBOARD 
ERROR 1 
FLARE RRR EERE EEE EERE ERE KARR EKER EERE EEE EERE KERR IKK 
s*TEST 15 TEST DONE FLAG SETS AND BITO CLEARS ON END OF CONV. 
CLARE RRR RERE EEE EER REE EERE EEKEKEEKE EERE REER KE 
TST15: 
000100 001160 MO #100, $TIMES 7:D0 100 ITERATIONS 
001000 #BIT9,RO ;STALL TIME COUNTER 
175276 @STREG * START CONVERSION 
000200 001124 aan :LOAD EXPECTED 


1$ : TIME 
100000 175256 #BIT15,@STREG ;MASK OUT ERROR BIT 


1 3A/D DONE FLAG FAILED TO SET;BITO FAILED TO CLEAR 
175252 MOV @ADBUF F ,RO CLEAR DONE FLAG FOR ITERATIONS 


J LARA AEER RRR EEE ERE EERE EEK 


z*TEST 16 TEST INIT CLEARS DONE FLAG 


LL AAR REE REERREEEREEEEEEEREKEEKEEEEEKEEEERERKEKKEEKEEEREREKEKRE KK 


TST16: 
#300, $TIMES 7:D0 300 ITERATIONS 
001124 SGDDAT :CLEAR EXPECTED 
175226 INC ;START CONVERSION 
175222 2$: 


000100 #B1T6,a$TKS sENABLE INTR. 
;DONE FLAG FAILED TO CLEAR 


[RARER EERE EEK EKEEEEKEKEREKE 
“STEST 17 TEST A/D DONE FLAG CLEARS WHEN READ CONVERTED VALUE 
SKE KKK KEKKKKKEKKKEEKKKRKEKEKEKEKEKKEKEEKEKKEKKEKKEK 
TST17: 
001124 C ;CLEAR EXPECTED 
175172 INC ;SET A/D START CONVERSION BIT 
175166 1$: ;WAIT FOR FLAG 


1$ 
175164 READ CONVERTED VALUE 
;DONE FLAG FAILED TO CLEAR 


004104 
004106 
004114 
004120 
004124 
004130 
004132 
004134 
004142 
004144 


ERRERERS 
NIRRSRE 
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CVMNAA P11 T20 TEST ALL Fos S RESULTS USING MAINT. ADTST. BIT SEQ 0030 


8 RRR REE EREEKEKEKKEEEEKKKEKEK 


:*TEST 20 TEST ALL ‘O'S RESULTS USING MAINT. ADTST. BIT 


SR hk tk kkk kkk ahaha lalaha ta talahahalahehalalahehalalehehelsleheiaiaiaiaisleisieisisieieieisieieisieleiaiohelel 


TST20: 
oy ; CLEAR EXPECTED VALUE 
CHAN SET CHANL = 0 
SPR EAD SET SPREAD = 0 
000005 175130 #5, aSTREG * CONVERT EVEN CHANNEL WITH MAINT. BIT SET 
175124 g 4 REG “WAIT FOR DONE 


$ 
175122 001126 @ADBUFF ,SBDDAT ;RESULTS TO ory FOR CHECKING 
TST21 GOTO NEXT TEST 
4 :DID NOT GET ALL ‘O'S RSULT WITH MAINT. ADTST 
JOA IA ICI ICICI UII OOICIOIIOITIOIOI IOI IIIT IIT SITS I ASSIA SIA SISOS SIA ASA. 
*STEST 21 TEST ALL '1°S RESULT USING MAINT. ADTST. BIT 
EKER EKKKEEKEEEKEKKEKEEKEEKKKEKEKEKK 
78121: 
007777 001124 MO #7777 , SGDDAT sEXPECT ALL ‘'1°S RESULT 
000001 001444 #1, CHANL ;SET CHANL = 1 
001462 SPREAD SET SPREAD = 0 
000405 175060 MOV #405 ,ASTREG ;CONVERT ODD CHANNEL WITH MAINT. BIT SET 
175054 : aSTREG ‘WAIT FOR DONE 


1$ 
175052 001126 @ADBUFF ,SBDDAT ;RESULTS TO BDDAT FOR CHECKING 
001124 001126 SGDDAT,$BDDAT  : EQUAL? 
TST22 7;GOTO NEXT TEST 
4 [DID NOT GET ALL '1°S RESULT WITH MAINT. ADTST 
SAS ICICI IOI SIIOIIIIIOII UIC IOI ITI ITA SIO ISIS SSSA ISAS AAA 
TRTEST 22 GENERATE INTERRUPT WHEN DONE FLAG SETS AFTER CONVERSION 


RRA RRR ERE EKEEEKEKEEEKEREEEEEKEKREKKEEEKEKEEKEEKKEEKKEKKEKK 


1122: 
#100, $TIMES :2D0 100 ITERATIONS 
LOAD RETURN ADDRESS 
10$: ,a$! REMOVE TKB INTERRUPT 
-(SP) SRESET PRIORITY 
#1$,-(SP) 


1$: PC,SETINT ;LOAD VECTOR AREA WITH TRAP CATCHER 
174772 #38, wih # ; INTERRUPT VECTOR ADDRESS 
174766 #200,a SET UP NEW PSW 
000101 174750 MO W176 BITO. asTREG ;SET INTERRUPT ENABLE BIT + START CONVERSION 
174744 : @STREG zuALT ar 


BP 2s 
174736 001126 @STREG,SBDDAT ;READ STATUS REGISTER 

asT wae ENSURE INTR. _— IS CLEARED 
001124 @ADBUF F , $GDD. sREAD TO CLEAR DONE FLAG 
001124 #B1T7'!BIT6, ScDDAt ;LOAD EXPECTED GOOD. DATA 

2 ;FAILED TO INTERRUPT ON DONE 

4$ ; ;BRANCH TO NEXT TEST 

: (SP)+, (SP)+ *RESET STACK POINTER 
174706 : VECTR1,@VECTOR ;SET UP FOR UNEXPECTED INTERRUPT 
174702 #4700, ,aVECTR1 
sCLEAR PSW 


~(SP) 
012746 #5$,-(SP) 


SESRoRS 


AAA AAAIUTIVIV 
ed td ed ed od od =) =) = 
WONAWSWMR-—O 





CVMNA~A MNCAD/MNCAM 


CVMNAA. 


P11 


T22 


000002 
005077 
005777 


3 
DIAGNOSTIC MACY11 27(654) 19-SEP-78. 08:51 PAGE 8-1 
GENERATE INTERRUPT WHEN DONE FLAG SETS AFTER CONVERSION SEQ 0031 


RTI 
174656 5$: CLR @STREG 
174656 TST @ADBUF F CLEAR DONE BIT 


FRR ER REE RRR EEE EEE REE ERE EKER ERE REE 
s*TEST 23 TEST INTERRUPT OCCURS WHEN ERROR AND I.€.E. IS SET 
FLARE REE ERE REE EERE EERE REE EEREERKKEERKKREREEEEE 
TST23: 

001160 MOV #100, $TIMES 3:D0 100 ITERATIONS 

001106 #10$,$LPADR ;LOAD RETURN ADDRESS 

174420 10$: #B1T6,a$TKS ;REMOVE TKB INTERRUPT 

=! ;LOWER PRIORITY 


1$: PC,SETINT ;LOAD VECTOR AREA WITH TRAP CATCHER 
174616 ;SETUP VECTOR ADDRESS 
@aVECTR3 SET UP NEW PSW 
#B1T15!B1T14,aSTREG ;CAUSE AN INTERRUPT 
@STREG,SBDDAT _;BAD DATA 
wB1Tis i811 14, SGDDAT ;GOOD DATA 
@STREG :CLEAR STATUS 
174550 _oer SAND CLEAR DONE 


3$ 
: (SP)+, (SP)+ POP STACK 
174532 : @STREG ;CLEAR STATUS REG. 
174532 S @ADBUF F FALSE READ TO CLEAR DONE 
001366 174532 VECTR3,@VECTR2 ;RESET VECTOR 
004700 174526 #4700 ,aVECTR3 


~(SP) 
004650 #4$ ,-(SP) 
174476 4$: @STREG 


FARRAR KERR ERR EK 
S*TEST 24 TEST ERROR FLAG SETS IF 2ND CONVERSION ENDS BEFORE READING BUFFER 
EKER KEKKKEKKEKEEKEKEKKEEEKEKEKKEAEKEKEEKEEKKKEEEEK 
78124: 
000001 174466 MO #BITO,aSTREG ;START CONVERSION 
000100 174252 I #BI1T6,a$TKS SENABLE TKB INTERRUPT 
174454 1$: SS TRES ;WAIT FOR 


BP 
001124 2$: #B81T15!BIT7,$GDDAT ;LOAD EXPECTED VALUE 
174436 3b ht 3START 2ND CONVERSION 


WAIT FOR 2ND 
3$: RO CONVERSION TO END 
“ BN 3$ 


1 ;ERROR FLAG NOT SET WHEN 2ND 
; CONVERT ENDS BEFORE READ BUFFER FROM FIRST 
174422 @ADBUF F ,RO [CLEAR DONE FLAG 


‘RESET PRIORITY 
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CVMNAA.P11 T25 TEST ERROR FLAG SETS IF START 2ND CONV. BEFORE DONE FLAG SETS 


FREE RRR IK REE ERE 


TATEST 25 TEST ERROR FLAG SETS IF START 2ND CONV. BEFORE DONE FLAG SETS 


RUE ERA EERE 


78125: 
#B1T15,$GDDAT ;LOAD EXPECTED DATA 
;START CONVERSION 
* START NEXT CONVERSION 
* ONCE AGAIN IN CASE REFRESH INTERVENED 
;READ STATUS REGISTER 
OUT BIT 15 


001126 goal ; $BDDAT 


1 “ERROR FLAG NOT SET WHEN 2ND 
; CONVERT BEGINS BEFORE FIRST DONE 
174336 1$: 


@ADBUF F ,RO 
174326 CL @STREG CLEAR STATUS REGISTER 


SDI REE RE REREEREEEERERREERERREREEREEREERE RE 
s*TEST 26 TEST CHANNELS 0-7 FOR SINGLE ENDED 
I I II II TOT ITT TTT ITO TOI TOT TOT IOI SOTTO TIT ITT III II AI I NII NII IAIN 
TST26: 

001124 


$GDDAT 
000010 174312 BIT3,aSTREG ENABLE PREAMP STATUS 
174306 1$: @STREG START A Sapp d 
174302 2$: ami 


174300 001126 @ADBUF F , SBDDAT TATUS 
007777 001126 #7777 ,SBDDAT MASK OUT CONVERTED VALUE 
3$ ;SKIP OVER ERROR IF ZERO 


1 
000400 174252 3$: ADD #B1T8,a@STREG ; INCREMENT CHANNEL TO BE TESTED 
174244 + ‘did cet :1S_IT DONE? 


ee 
SLI RRR ER ERE ERR EER EERE KERR EEE ERE RRR EERE ERE REE EER 


z*TEST 27 TEST CLOCK OVERFLOW STARTS A/D (TESTER ONLY) 


SLR REE REAR EER EERE RE REE REE REE EERE ERE REE EEE EER ERE 


TST27: 
WF TEST :RUNNING IN NORMAL MODE? 
2$ :YES, GO TO NEXT TEST 
001124 #BIT7!BITS.SGDDAT’ :SET UP EXPECTED RESULT 
174216 $GDDAT,a@STREG ;ENABLE CLOCK OVERFLOW START 
#B1T9,RO :STALL TIME COUNTER 
174240 #177777,@CLKBPR :SET CLOCK NEAR OVERFLOW 
174230 #11 .@CLKCSR i START CLOCK AT LINE RATE 


1$ “TIME 
SCHECK RESUL 
1 ‘DONE FLAG FAILED TO SET 


@ADBUF F CLEAR DONE FL 
@STREG ; INHIBIT CLOCK OVERFLOW START 





3 
CVMNA~A_MNCAD/MNCAM DIAGNOSTIC MACY11 27(654) 19-SEP-78" 08:51 PAGE 10 
CVMNAA P11 T30 TEST EXTERNAL START STARTS A/D (TEST MODULE OR TESTER) 


DEES ISI III III III III IIIT IIIT 
TATEST 30 TEST EXTERNAL START STARTS A/D (TEST MODULE OR TESTER) 
PTTTITITITITILITI TITTLE LLL LLL te 
18130: 
001160 MO oP of ya : D0 1 ITERATION 
WF TEST ;RUNNING IN DWARF OR TESTER MODE? 
4$ NO, GO TO NEXT TEST 
001124 #BIT7!BITS, SGDDAT’ ” ;SET UP uae RESULT 
174124 SGDDAT ,@STREG — EXTERNAL STAR 
eae ‘RUNNING IN TESTER MODE? 


#B1T9,RO ‘STALL TIME COUNTER 
176144 WBITB.@DRVDOR GENERATE EXTERNAL START 
176136 #8178 ,@DRVDOR :RESET BIT 


; TIME 
BR 3$ 7; TEST RESULTS 
001134 : : :IS IT UNDER A MONITOR ? 


4 YES 
001176 iis IT THE FIRST PASS? 
BN 4$ 33NO, DON'T RUN TEST 
020330 XTS [TYPE MESSAGE ABOUT EXT. START 
026572 : UNIT # 
001514 UNI TBD, ~(SP) 


SSSSI5aG8 


AXRXAXOOO 
USWN =O 


1 
° 0 : SUPPRESS LEADING ZEROS 
021463 .CRWR ;TYPE ‘‘TYPE CR WHEN READY’ 


[WAIT FOR CR 
(SP) + [POP WORD OFF STACK 
100000 174016 Ic WBIT15,@STREG CLEAR A/D ERROR 


3$: ESULT 
1 DONE FLAG hiney TO SET 

174012 4$: @ADBL F ;CLEAR DONE FLAG 

174002 @STREG ; INHIBIT EXTERNAL START 


PRR EEE 


SCOPE 
RTS PC ;RETURN TO TEST SECTION 


LEAR EEEEEEERKEKEEEEEEKEEK 


; SUBROUTINE FOR LOGIC TESTS;; 
013777 001124 173770 TESTIT: MOV SGDDAT ,@STREG ;LOAD EXPECTED VALUE 
017737 173764 001126 TEST: MOV @STREG, SBDDAT READ ST. REG. 
001124 001126 CMP $GDDAT , SBDDAT ; COMPARE RESULTS 
BNE RETERR ; ERROR RETURN 
000002 wren 4 #2, (SP) ;BUMP RETURN ADDRESS TO GET AROUND ERROR 





CVMNA~A_MNCAD/MNCAM 
CVMNAA.P11 
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AROUND TEST SECTION 


015352 
015502 


000010 
015352 
015502 


000010 
015352 
015502 


000010 
001476 


006240 
015352 
015502 


- SBTTL WRAPAROUND TEST SECTION 
WRAP : 


tit iti itt tiiitiititiiit iti titi e 

:*TEST 31 TEST CHO GROUND 

TUBES ESSEC AIEEE IOIOIOUIIIIOIEIIISOIIIOIIIOIIOIIOOI I It 

TST31: #STN,STSTNM 

MO #10, $TIMES +3D0 10 ITERATIONS 

#TST31,$LPADR *SET UP LOOP ADDRESS 
#TST31.$LPERR | :*SET UP ERROR LOOP ADDRESS 
BASECH ;T HANNEL 0-7? 


WRAPX 

RS, CONVRT “CONVERT 8 TIMES 

RS, COMPAR COMPARE RESULTS 
NAL 


:NOMI 
; TOLERANCE 
ERROR ON A/D CHANNEL 


FL I RRR REE REE REE EER REE RRR ERE RE ER EERE EER 


z*TEST 32 TEST CH1 +4.5 VOLT 


J LARA REE E REE E REE EERE REE ER EER EERE EERE 


TST32: 
#10,STIMES ::D0 10 ITERATIONS 
R5,CONVRT ;CONVERT 8 TIMES 


7 CHANNEL 1 
R5, COMPAR raat RESULTS 


; NOM 
: TOLERANCE 
ERROR ON A/D CHANNEL 


LARA REAR EEREREEEEREEREREEEEE EERE EERE EEERERE EKER EE 
tSTEST 33 TEST CH2 -4.5 VOLT 
REAR EAAAEEEEERKEERERAARKEEEKEEEKEEERERKKEEERAREREEEE 
7133: OPE 
001160 #10, STIMES 3:D0 10 ITERATIONS 
R5,CONVRT ;CONVERT 8 TIMES 


2 CHANNEL 2 
i? R5, COMPAR [COMPARE RESULTS 


NOMINAL 
v326 ; TOLERANCE 
ERROR 4 ERROR ON A/D CHANNEL 


RRA EKEEEKKEKEREREEKEKEEREEEEKEEKERKEEKEKEKEEAEEKKKKKKK 


s*TEST 34 TEST CHS GROUND (DWARF OR TESTER) 


TDR EAI ISSO CSIIIOISIOISIISISIOIISIISIIIIOIOIIOIIIDIOIOIITIOIDIDIOIOICIOIUIOIOOIOIITIOIDIDOIIII IOI 
TST34: 
001160 MOV #10, $TIMES 3;D0 10 ITERATIONS 
i rest ;RUNNI NG WITHOUT TESTER OR DWARF 


:3NO 
STD :YES, BYPASS DWARF/TESTER CHECKS 
RS, CONVRT SCONVERT 8 TIMES 


[CHANNEL 5 
R5,COMPAR ; COMPARE RESULTS 


; NOMINAL 
; TOLLERANCE 
ERROR ON A/D CHANNEL 
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CVMNAA P11 134 TEST CHS GROUND (DWARF OR TESTER) SEQ 0035 


SEAR: EERE ERE RR ERE RRR REE REE REE REE REE EE 


T*TEST 35 TEST CH4 +2.6 VOLTS (DWARF OR TESTER) 


© RRR ERE 


18135: 
000010 MO #10, Ma 3;D0 10 ITERATIONS 
015352 ; R5, CONVRT CONVERT 8 TIMES 


: CHANNEL 4 
015502 R5, COMPAR ; COMPARE RESULTS 


; NOMINAL 
; TOLLERANCE 
ERROR ON A/D CHANNEL 


FLIER ERR ERR ERR ERE ERE EERE 
ZATEST 36 TEST CH6 -2.2 VOLTS (DWARF OR TESTER) 
= KEKE EEE EKEKKEKK 
18136: SCOPE 
000010 MOV #10, $TIMES {D0 10_ ITERATIONS 
015352 JSR —- RS, CONVRT :CONVERT 8 TIME 


6 [CHANNEL 6 
015502 R5, COMPAR [COMPARE RESULTS 
1760 NOMINAL 


; TOLLERANCE 
SERROR ON A/D CHANNEL 


WRAPX : 
LRA EERE REE REE RERERER ERE EEK 
s*TEST 37 TEST VOLTAGE ON CHANNELS (DWARF OR TESTER) 


FLARE REE EREREREKERERERERERE EERE REE REER EKER RE 


TST37: 
#10,$TIMES 3:D0 10 ITERATIONS 
ASTN-1,$TSTNM :SET UP TEST NUMBER 
Pate Cn, ;SET UP CHANNEL 


#10, CHANL SON CHANNEL 10 
#VTABLE RS “POINT TO VOLTAGE TABLE 
(R5)+,4$ :SeT UP EXPECTED VALUE 


BASEND , CHANL 

TST40 3:YES, GO TO NEXT TEST 
: R5,CONVTC ON 8 TIMES 

015502 JS R5, COMPAR 


TIIAAASIS 


SUONAUSWN oO 


4 

001444 CHANL ; CHANNEL 

016360 R5 ,AVTABLE +20 :1S VOLTAGE TABLE POINTER AT END OF TABLE? 
es 33NO, GET NEXT EXPECTED VALUE 


YYNIY 
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CVMNAA.P11 T40 TEST CHANNEL FOR += 2.2 VOLTS IN DIFFERENTIAL MOD 


{RARER ERE E REAR RRR AREER REERERERERERERRRER RES 


;STEST 40 TEST CHANNEL FOR += 2.2 VOLTS IN DIFFERENTIAL MODE 


RAE EERE 


7140: 
000001 V #1,$TIMES ::D0 1 ITERATION 
001476 WF TEST "yee IN TESTER MODE? 


1$ IF NO 
000010 #10,$TIMES ‘io. 10 ITERATIONS 
000200 peal amnesia 3SET A/D AND MUX TO DIFFERENTIAL 


001176 : SPASS iis THIS THE FIRST PASS? 
TST41 33zNO, DON'T RUN TEST 
001372 ne ; TESTING ANY DIFFERENTIAL CHANNELS? 


L qin 
020235 TYPE SET DWARF TO DIFFERENTIAL MESSAGE 
021463 3 TYPE "TYPE CR WHEN READY‘ 
WAIT FOR CARRIDGE RETURN 
“POP WORD OFF STACK 
#3$,$LPADR ;SET UP LOOP ADDRESS 
#3$,$LPERR SET UP ERROR LOOP ADDRESS 
#2220,6$ SET UP INITIAL EXPECTED VALUE -2.2 V 
BASECH,RO GET FIRST CHANNEL TO TEST 
RO,410 IS RO >= 10 
4$ 
#10,R0 : 
BASEND ,R5 T LAST CHANNEL TO TEST 
RO,RS “GET oe ae ie teat 7 FIRST AND LAST 
R5 ‘DIVIDE IT IN 


RO,RS5 ZADD 4 ad CHANNEL GIVING LAST CHANNEL 
RO, CHANL 3SET uP FIRST CHANNEL TO TEST 


001444 : R5, CHANL ; ? 
7$ 3;YES, GO TO NEXT TEST 
015360 RS, CONVTC CONVERT 8 TIMES 
015502 R5, COMPAR TEST RESULTS 
: ; NOMINAL 


& ; ON A/D CHANNEL 

CHANL O NEXT CHANNEL TO TEST 
6$ REVERSE SIGN OF EXPECTED VALUE 
#170000 ,6$ CLEAR EXTRA BITS 


WFTEST ; RUNNING IN TESTER MODE? 
8$ IF DWARF 


oe 


172722 #100, a$TKS 7 ENABLE op ge th 
BR TST41 3;GO0 TO NEXT TEST 
020125 : , SDSE zTYPE SET DWARF TO SINGLE ENDED MESSAGE 
021463 ,CRWR TTYPE ‘TYPE CR WHEN READY’ 
:WAIT FOR CR 
(SP)+ ;POP WORD OFF STACK 
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[RARER EEREKE. REAR AKRREKEEAREEREKKERREEKEKEREKEEREEEKEEEEKRKEKE 


;*TEST 41 TEST VERNIER OFFSET DAC ON CHO 


= AERA EKEKEKEEKEKKEEK 


18141 : 
#1,S$TIMES 
#STN-1 ,STSTNM 
@ADBUF F 


1426 
015502 


;DO0 1_ ITERATION 
SET UP TEST NUMBER 
3SET VERNIER DAC = 0 
3SET hd TO CONVERT ON CHANNEL 0 
CONV. CHO, DIRECT VERNIER DAC 
‘SAVE “VALUE _IN R4 
SET VERNIER DAC = 377 
CONVERT IT 
7 TEMP=DIFF. BETWEEN VALUE & PREVIOUS 
COMPARE RESULTS 


5 REAR EEE REREKKEKEKREEEEEKKEEH 


s*TEST 42 OFFSET ON CHO 


= AREER KKEKEEKEKEEEKK 


TST42: 
#1, STIMES 
,OF SET 
PC ,WHI CHU 
UNI TBD ,~(SP) 


1,0 
CHANL 


DUMMY 

PC ,OFFSET 
-MOF SET 
PC, TOFF 
R5, COMPAR 


BR 
OFFERR: ’ 


021132 OF FOK: 


¢zD0 1 ITERATION 

ZIN fay el a ye TEST NAME 
GET UNIT 
;PUSH IT 
TELL OPER. 


LOAD CHANNEL 
;LOAD DUMMY 

3 FIND OFFSET 
iTYPE ‘‘OFFSET="' 


TYPE OFFSET 
ZIS RESULT WITHIN LIMITS? 


;NO-ERROR 
: YES~OK 
: INDICATE BAD UNIT 


UPDATE ERROR COUNT 
7:60 TO NEXT TEST 





SEQ 0037 CV 


M 3 
CVMNA-A_MNCAD/MNCAM DIAGNOSTIC MACY11 27(654) 19-SEP-78 08:51 PAGE 14 CV 
CVMNAA P11 143 TEST RAMP RANGE, CH3 CV 


FERRARA ERE EERE RARER EERE EERE ER EEERERERERERERERERER REE 
TST43: 

000001 001160 MO #1,$TIMES :DO THIS ONCE 

007777 MOV #7777 ,R3 S INIT R3 VALUE 


RG SAND R4 
001400 172666 #1400, aSTREG “SETUP FOR CH3 
0 #20000. .R2 “SETUP FOR 20,000 CONVERSIONS 


04704 

172656 
172652 
172650 


172642 MOV HIT A NEW HIGH 
172636 


4$ 
172630 - HIT A NEW LOW 


1$ 
001426 R3, TEMP 
015502 : RS, COMPAR 


& ;RAMP DIDN'T REACH LOW END OF RANGE 
001426 R4, TEMP 
015502 J R5, COMPAR 


;RAMP DIDN'T REACH HIGH END OF RANGE 
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001442 


001470 
013224 


My: 
0014 
01 $354 


001454 


001454 
013164 


016360 


001454 


007770 


MACY11 27(654) 
VMNAA P11 144 NOISE TEST, 1 EDGE 


{REAR ARRRRREEREREREREERERERERERERRERERERERRERRERERERRERRRRE EE 
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PAGE 15 
SEQ 0039 


NOISE TEST, 1 EDGE 


UNI TBD ,-(SP) 
1,0 

-SCRLF 
Alaa 


1 
#20, CHANL 
. 7 ,BASEND 


BASE CH, CHANL 
cae 


PC, TSTDAC 

DAC ,RMS 

R5,SARSUB 

PC, TSTDAC 
DAC RMS 

a . EDGFLG 
RMSNOI 


$ 
#255. ,RMS 
4$ 


,ERMSG 
PC ,WHI CHV 
SERTTL 

#8$ ,ERRADR 
R5 


R5 
#6,R5 
10$ 


jASeRRERR ERE REERER HEMET ERE RE ER ERE RRR R RARER RER REAR R ERE EE EEE ES 


3;D0 1 ITERATION 
;CLEAR ENTRY FLAG 
RUN NOISE TEST 
NEXT TEST 


DETERMINE UNIT # 
TELL OPER. 


aie MOT THE TESTER 


;BR IF 
ZASSUME TESTING AM 
sTEST ING AM? 


:LOAD CHANNEL 0 

SET UP ERROR RETRY ADDRESS 

CLEAR RETRY COUNT 

: INCREMENT COUNT 

SIS COUNT = 6? 

zsYES, CHANNEL TOO WIDE OR NOISY 
Y CHANNEL 


EDGE VALUE 
SET UP EDGE VALUE 
3D0 SAR ROUTINE AT 16% 


CHECK VERNIER DAC SETTING 
ADD RESULT TO RMS 
3DO SAR ROUTINE AT 84% 


CHECK VERNIER DAC SETTING 
; SUBTRACT RESULT FROM RMS 


TYPE RMS VALUES 
ZWITHIN LIMITS? 


‘SET RMS TO MAX ERROR 


INDICATE BAD UNIT 

UPDATE ERROR TOTAL 

SET UP ERROR RETRY ADDRESS 
CLEAR RETRY COUNT 

3 INCREMENT COUNT 

71S COUNT = 

33 YES, CHANNEL TOO WIDE OR NOISY 
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CVMNAA.P11 T44 NOISE TEST, 1 EDGE 


013737 001442 V CHANL , DUMM ;LOAD DUMMY CHANNEL 
004537 0 R5,CONVTC GET EDGE VALUE 
013737 1426 001470 TEMP ,EDGE SET UP EDGE VALUE 
004537 R5,SARSUB :D0 SAR ROUTINE AT 1% 


PC, TSTDAC 4 ee DAC SETTING 
001456 DAC ,PEAK D RESULT PEAK 
RS, SARSUB ‘D0 SAR ROUT INE AT 99% 


PC, TSTDAC ;CHECK VERNIER DAC SETTING 
001456 DAC ,PEAK ; SUBTRACT RESULT FROM PEAK 
013164 #) jor 


PEAK ,R2 

PC, TYPRP ; TYPE PEAK VALUES 
016362 PEAK , VNP sWITHIN LIMITS? 

11$ zNO 

,OKMSG 


BR 12$ sé 
001456 : “4 < Satta: ;SET PEAK TO MAX ERROR 


; INDICATE BAD UNIT 
;UPDATE ERROR COUNT 
LEAVE A BLANK LINE 
7GET NEXT CHANNEL 
+ CHECK ENTRY > = 
IF MANUAL ENTR 
[CHANNEL 3 (RAMP CHANNEL) ? 


YES 
: CHAANEL 7 (EDC INPUT CHANNEL)? 
[CHANNELS 3 AND 7 ARE SKIPED 
RUNNING WITHOUT DWARF/TESTER ? 
: BR IF DWARF /TESTER 


*:YES,GO TO NEXT TEST 


2283 


0 

1 
912 
913 
914 
915 
916 
917 
918 
919 


001444 


8888 
N— 


3;BR_IF TESTER MODE 
; DONE? 
>: YES 
JMP 2s NO, CONTINUE TESTING 
TESTER - DON'T RUN GOOD MNCAM 
: MOV BASEND ,R5 3;GET LAST CHANNEL 
[GET LAST CHANNEL TO TEST 


; DONE? 
32VES, GO TO NEXT TEST 
:NO, ; CONTINUE TESTING 


I 16$ 
001444 BASEND , CHANL 
17$ 
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CVMNAA.P11 T45 INTERCHANNEL SETTLING TEST, 1 EDGE C\ 


5 ARERR EEE REE REE REE EERE REE REE ER ERE REE REE RRR REN 


T*TEST 45 INTERCHANNEL SETTLING TEST, 1 EDGE 


FRR ERE REE REE REE ERE EEE 


TST45: 
#1,STIMES 3:D0 1 ITERATION 
,SE TMSG TYPE ‘‘SETTLING TEST’’ 
PC, WHICHU ‘DETERMINE THE UNIT # 
UNITBD, -(SP) sSAVE IT 
sTYPE IT 
1,0 
~SCRLF 
WF TEST ; RUNNING ON THE TESTER 
1$ IF NOT 


#24 ,RO GET MUX CHANNEL INCASE TESTING MNCAM 
« aatmme : TESTING MNCAM? 


:3NO 
"miata 1S CHANNEL ZERO? 


#4 RO eet UP CHANNELS TO SETTLE BETWEEN 
+ Saat 


0 

r+ tad 
#1,CH1 ‘DO TEST BETWEEN CHANNEL 1 AND 2 
~ Fite 


;CLEAR RETRY COUNT 
R5 ; INCREMENT COUNT 
aed 31S COUNT = 6? 


73 YES 
CH2, CHANL 
R5,CONVTC ;GET EDGE VALUES 
TEMP ,EDGE SET UP EDGE VALUE 


R2 
PC,SETIA SCALING = .02 LSB 
TERROR RECOVERY JUMP 
PC,SETIA :MAKE IT .01 LSB 
5$ ERROR RECOVERY JUMP 
yr ; TEST RESULTS 
MAKE IT POSITIVE 
R2,R4 
#1,EDGFLG 
PC, TYPSET :TYPE SETTLING INFORMATION 
; DONE? 


32 Vs 
SETTLE THE OTHER WAY 


SET SETTLING TO MAX ERROR 





4 
CVMNA~A_MNCAD/MNCAM DIAGNOSTIC MACY11 27(654) 19-SEP-78 08:51 PAGE 17 
CVMNAA P11 T46 DIFFERENTIAL LINEARITY AND RELATIVE ACCURACY TEST (CHANNEL 3) 


FRR RRR ERR REE REN 


TATEST 46 DIFFERENTIAL LINEARITY AND RELATIVE ACCURACY TEST (CHANNEL 3) 


SRE REE EERE EERE RK EEE EKER EKEERKEKKEEEEEREKEE 


i146: 
:7;D0 1 ITERATION 
: TESTING CHANNEL 3? 


FIRST TIME-SKIP DIFLIN 
LEND 
PC,DIFLIN 
LEND: PC RETURN TO TEST SECTION 


[RA KKKKKK 


012737 004001 001470 OFFSET: MOV #4001 , EDGE :4000,4001 EDGE 
004537 013224 ier RS, SARSUB 


000062 

013737 001464 001426 DAC, TEMP 

012737 004000 001470 #4000 , EDGE 33777,4000 EDGE 
004537 013224 R5, SARSUB 


000062 . 

063737 001464 001426 DAC, TEMP 
162737 000400 001426 #400, TEMP 
000207 PC 


FERRER EKEKEEEEKEKEK 

ROUTINE TO TEST DAC SETTING FROM SARSUB 
JUMPS TO ADDRESS IN ERRADR IF DAC SETTING IS EITHER 0 OR 377 
> OTHERWISE RETURNS TO CALL+1 

TSTDAC: 444 DAC ; =0? 


1$ oo¥i 
001464 . = 377 ? 
1$ ee 


g 


1$: CALL OFF STACK 
JMP “JUMP TO ADDRESS IN ERRADR 
ERRADR: 0 


: 
; 
1 
1 
1 
; 
1 
1 
; 


ooooooo[eo 
ok aah a a od od td oe 
NOUMUSWM-O 
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001426 
021604 
023010 


000005 
001165 


021014 
001466 
171076 
171072 
001466 
171056 


000100 
015502 


000002 
000002 


; SUBROUTINE TO INSERT ‘'t'' AND TYPE # ON THE STACK 

TOFF : TEMP ,R2 
BM 1 

-POSITV 

ey TYPE ASCIZ STRING 


3721S THE NUMBER POSITIVE? 
1$: 


; SUBROUTINE TO WAIT FOR OPERATOR'S ‘RETURN’’ THEN CHECK TOLERANCES 
:DECREMENT COUNT 


“RES ET COUNT 
+ TYPE A CARRIAGE RETURN AND LINE FEED 


TYPE FOUR (4) SPACES 
CLEAR DELAY 

;CLEAR INTERRUPT ENABLE 
31S KEYBOARD FLAG SET? 


scves 
;1S DELAY ZERO? 


oe 


4$: a$TkB “CLEAR LAG 
171046 #100, a$TKS SET INTERRUPT ENABLE 
R5, COMPAR TEST LAST CONVERSION 


; TOLERANCE .10 LSB 


5$ ae 
#2, (SP) ;BUMP RETURN ADDRESS 
-~ Tat ;BUMP RETURN ADDRESS 2 WORDS 
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.SBTTL CALIBRATION SECTION 
010122 021143 BEGINC: TYPE -CCHAN sASK FOR CHANNEL 
104413 RDOCT READ CHANNEL NUMBER 
001444 MOV (SP) +, CHANL STORE CHANNEL NUMBER 
001444 MOV CHANL , DUMMY LOAD DUMMY 
021231 1$: oSEL ZSELECT OFFSET OR GAIN ADJUST 


:GET TEST 
(SP)+,RO ;MOVE mh TO RO 
000117 71S 
Hayes, GO io ADJUST OFFSET 
000107 S 'v? 
:AYES. , TO ADJUST GAIN 
001164 s TYPE ° 
010172 1$ F 


cosas te TO CHECK OFFSET ADJUSTMENT VALUES 
010174 021424 AJOF F YPE - IGND GROUND C 
010200 R [WAIT F 


OR CR 
(SP) + ;POP 1 WORD OFF STACK 
021322 1$: -XADJ SADJUST MESSAGE 
000005 #5 ,R3 SET _UP COUNT 
2$: PC,OFFSET ; TEST AND TYPE OFFSET ERROR 
C, TOF STYPE OFFSET 
[CHECK FOR A CHARACTER AND DELAY 


:=NOT WITHIN TOLLERANCE, TRY AGAIN 
3$: Ty ;ERMS :TELL OPER. 'ERROR'' 
s SUBROUTINE TO CHECK THE GAIN ADJUSTMENT 


021523 AJGAIN: ha -IVOLT 7 INPUT +5.115 VOLTS ON CHANNEL 


021463 

WAIT FOR CR 

;POP 1 WORD yA STACK 
021567 1$: SADJUST MESSA 
021336 L sTYPE °° Alt : “60 LSB ERROR"’ 
000005 #5 ,R3 7SET UP C 
007777 001470 : ;LOOK FOR nr, 7777 EDGE 
013224 5, SARS 


001464 001426 V AC, TEMP :SAVE DAC 
007776 001470 “LOOK FOR 7775,7776 EDGE 
013224 5, SARSUB 


001464 001426 D : :ADD RESULTS 
000400 001426 i 2 OFFSET RESULT 
007772 TYP. 


YPE GAIN 
010014 5 £ CHECK FOR CHARACTER AND DELAY 
SNOT WITHIN TOLLERANCE, TRY AGAIN 
001564 MP BE 
021606 : ;TELL OPER. ‘ERROR’ 
BR 1$ 


SELES 


wo So SS SS SS 


— So SS 
SFRALVLS 


010374 
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SWITCH GAIN MANUAL INTERVENTION TEST SEQ 0045 
1107 -SBTTL SWITCH GAIN MANUAL INTERVENTION TEST 
1108 010376 104401 021143 BEGINM: TYPE . CCHAN sASK FOR CHANNEL 
1109 010402 104413 RDOCT ;READ CHANNEL NUMBER 
1110 012600 MOV (SP)+,RO ;GET CHANNEL NUMBER 
1111 010406 000300 SWAB RO PUT CHANNEL NUMBER IN HIGH BYTE 
1112 010410 052700 000010 BIS #B1T3,RO SET STATUS ENABLE BIT 
1113 010414 010077 170732 MOV RO, asTREG [LOAD CHANNEL AND STATUS ENABLE 
1114 010420 104401 020551 TYPE 2SCM ;ASK MODE BE SET TO CURRENT 
1115 010424 012737 030000 001124 MOV #81113!B1T12,$GDDAT ;SET UP_EXPECTED 
1116 010432 104401 020656 1$: TYPE »GHLF zASK_GAIN BE SET TO .5 
1117 010436 104417 TESTID ;GO TEST FOR ID CODE 
1118 010440 104001 ERROR 1 
1119 010442 104401 020673 TYPE -GAINS ;ASK GAIN BE SET TO 5 
1120 010446 104417 TESTID 3:GO TEST ID CODE 
1121 010450 104001 ERROR 1 
1122 010452 104401 020713 TYPE -GAINSO zASK GAIN BE SET TO 50 
1123 010456 104417 TESTID :GO TEST ID CODE 
1124 010460 104001 ERROR 1 
1125 010462 104401 020734 TYPE ,GAINSM sASK_GAIN BE SET TO 500 
1126 010466 104417 TESTID ;GO TEST ID CODE 
1127 010470 104001 ERROR 1 
1128 010472 022737 070000 001124 CMP #70000 , $GDDAT READY TO DO RESISTANCE? 
1129 010500 001003 BNE 2s ; ;NO 
1130 010502 104401 020577 TYPE . SRM SASK MODE BE SET TO RESISTANCE 
1131 010506 000751 BR $ 
1132 010510 022737 130000 001124 2$: CMP #130000 , $GDDAT READY TO DO VOLTS? 
1133 010516 001003 BNE 3$ ;;NO, DONE WITH TEST 
1134 010520 104401 020630 TYPE .SVM SASK MODE BE SET TO VOLTS 
1135 010524 000742 BR 1$ 
: : 4 010526 000137 001564 3$: JMP BEG2 
1138 010532 062737 010000 001124 TPRMP: ADD #B1T12,$GDDAT ee EXPECTED ID 
1139 010540 104401 021463 TYPE ,CRWR ASK_FOR CR WHEN READY 
1140 010544 104412 RDLIN WAIT FOR CR 
1141 010546 005726 TST (SP)+ “POP 1 WORD OFF STACK 
1142 010550 005277 170576 INC @STREG START A CONVERSION 
1143 010554 105777 170572 1$: TSTB @STREG WAIT TILL DONE 
1144 010560 100375 BPL 1$ 3 
1145 010562 017737 170570 001126 MOV @ADBUFF ,SBDDAT GET RESULT 
1146 010570 042737 007777 001126 BIC #7777 ,SBDDAT ; CLEAR CONVERTED VALUE 
1147 010576 023737 001124 001126 CMP $GDDAT,SBDDAT ;1S ID RIGHT? 
1148 010604 001002 BNE 2$ 73NO, TAKE ERROR RETURN 
1149 010606 062716 000002 ADD #2,(SP) ;BUMP RETURN ADDRESS 
1150 010612 000002 2$: RTI 
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. SBTTL PRINT VALUES ROUTINE 
170532 BEGINP: CLR @STREG sCLEAR STATUS REGISTER 
022642 TYPE HEADS ; TYPE OUT HEADING 
;CLEAR PSW 


vw 
wr 


=(SP) 
#1$,-(SP) 
asSwR,RO ;READ CHANNEL FROM SWITCH REG. 
#177700,RO ISOLATE MUX BITS 


170266 #B1T13,aSWR 31S BIT 13 SET? 
2$ ::YES,SKIP TYPEOUT 


.CH 
RO,-(SP) 7;SAVE RO FOR TYPEOUT 
33 TYPE CHANNEL 
3260 Heaps 32 ASCII 
2 aaa: 2 DIGIT(S) 
0 ; SUPPRESS LEADING ZEROS 
001540 170464 : MOV #RETURN,@VECTOR © ADDRESS AFTER INTRPT. 
RO ;SWITCH BYTES 
#B1T6,RO 


RO as TREG ;LOAD THE CHANNEL 
#10,R2 :TYPEOUT COUNTER 
aSTREG ‘START CONVERSION 

‘WAIT FOR INTRPT. 
@ADBUF F ,RO :READ CONVERTED VALUE 
170206 #B1T13,aSWR :1S Bit T 13 SET? 
4$ T SET, TYPE OUT LIST 
170202 RO, @DISPLAY “PUT VALUE IN DISPLAY FOR DISPLAY CONTROL 
eer BR 1$ SREPEAT CONVERSION 


: - SPACE 
010746 RO,-(SP) 32:SAVE RO FOR TYPEOUT 
7¢PRINT OCTAL CONVERTED VALUE 
010750 22GO TYPE-OCTAL ASCII 
004 4 iz TYPE 4 DIGIT(S) 
1 3:TYPE LEADING ZEROS 
4 aeaaaaasis 


021011 


ee ed ed ed od 


attr ye fa be Poe etna tare tt ee ret tt ttre tty tet 
oa ad td o Wuivi wi 
QVEAKCLILILAVISSSVKALF 


ees a ed ot od td SI 


;DECREMENT THE COUNTER 
BN 3$ NO CARRIAGE RETURN 
001165 CARRIAGE RETURN 
010774 BR 1$ REPEAT CONVERSION 


68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
1) 
1) 
1) 
1) 
78 
79 
80 
81 
82 
83 
84 


— os os 
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BSLESRESLESELE 


ee kk a ak a a oh a a a tt 
SeseaRaTes 
NOUEWN = 


NMOMINPNMPY 
aad cad and ad eed ed 
UW oO 


010776 


MN 


ooooo ooo 
Saaaatad adatad 
aadadadad ad ad ad 
atadadad ad ad ad 
Nth tt} 

MEMAM WOO 


a) NNO 
Ww 
SSRIS 


Nn — 
ARMSM 


NMoNngenononononofy 


lelelejejlelelelelelelejlolejlejoejlojlo) 
on 


Ss SS 2 SS as SS SS Ss Ss SS SS DS 
— So SS SB oe os os a SS 


Nm 
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DIAGNOSTIC 
LOGIC TEST SECTION START-UP 


ss Seess 
= wwr= 
Ovo 
Nok 


oO 
i ae 
mwsL Oo 


002772 
011254 
003266 
012410 
022045 
011446 
005406 
012410 
011050 
016412 


002772 
011254 
011446 


005406 
012410 


011126 
016412 


012510 
001440 
017076 


001370 
017126 


001372 
001370 


000001 
006612 
011230 
016412 


016610 


016610 


016610 


016610 


001372 


001416 
016610 


MACY11 on 
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LOGIC TEST SECTION START-UP 
PC ,WF Clik 


PAGE 22 
SEQ 0047 


tet I D +s * “NO A/D MODE 
E THE NUMBER OF MNCAD'S 


‘TYPE END OF PASS 


;SIZE THE # OF MNCAD'S 
ZSET UP_IF WESTFIELD MODE 

:LOGIC TESTS 

[UPDATE THE ADDRESSES IF ANY 

BR AND DO NEXT UNIT 

;TELL OPER. END OF LOGIC TEST 
REPORT A/D CONFIG. AND IF DWARF MODE 
zASK FOR THE CHANNELS TO TEST 


;BUMP THE ADDRESSES 

3BR AND DO NEXT UNIT 

ZADDRESS FOR EOP 
TYPE END OF PASS 


SIZE THE # OF MNCAD'S 

SET UP IF WESTFIELD MODE 

REPORT THE A/D CONFIG. AND IF DWARF 
MODE ASK FOR THE CHANNELS TO TEST 
WRAPAROUND TESTS 

[UPDATE BUS ADDRESSES 

[BR AND TEST NEXT UNIT 


; INCREMENTS $PASS 


ENSURE BASE AND VECTOR SETUP 
;CLEAR MULTIPLE UNIT FLAG 

zASK FOR STARTING NOISE CHANNEL 
:GET EP eet INPUT 


ERO 
TAKE CARE IF ONLY 1 CHANNEL 


SET MANUAL ENTRY FLAG 
[RUN NOISE TEST 
;LOAD RETRURN POINTER 


SBTTL 
BEGL: JSR 
MOV #2$,AGTST 
2$: JSR PC, TESTAD 
1$: JSR PC.BEGINL 
JSR PC ;BUMPAD 
MOV #1$,AGTST 
JMP $EOP 
.SBTTL AUTO TEST START-UP 
BEGINA: JSR »TESTAD 
JSR PC. WF CHK 
1$: JSR PC -BEGINL 
JSR PC BUMPAD 
BR $ 
TYPE § ,MEND 
2$: JSR PC, TCHANL 
JSR PC ,WRAP 
SR PC‘ BUMPAD 
BR 2$ 
MOV #1$,AGTST 
JMP $EOP 
.SBTTL WRAPAROUND TEST START-UP 
BEGINW: JSR PC, TESTAD 
JSR PC . WF CHK 
1$: JSR PC. TCHANL 
JSR PC ,WRAP 
JSR PC. BUMPAD 
BR 1$ 
MOV #1$,AGTST 
JMP SEOP 
.SBTTL NOISE TEST START-UP 
BEGINN: JSR PCF IXONE 
CLR NMBEXT 
TYPE _, SCHAN 
RDOCT 
V (SP) +,BASECH 
TYPE _, ECHAN 
RDOCT 
MOV (SP) + ,BASEND 
BNE 
MOV BASECH, BASEND 
NOP 
NOP 
NOP 
1$: MOV #1 WIDE 
JSR PC‘NOITST 
MOV #1$,AGTST 
JMP SEOP 


SAND REPORT END OF PASS 
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;*ROUTINE TO CHECK FOR PROPER I ® CODE IF TESTER MODE 
:*IF ON TESTER, SET UP BASECH AND BASEND FOR CHANNELS BEING TESTED 


CVMNA~A_MNCAD/MNCAM 
CVMNAA P11 


et 1254 


S 
SUREAERS 


Why 
% 


ad aed aed a cad cd a ed 
in 
Arar 


x 
nt) 


3A st 


Cooooo°0o[oeo 


So 
= 
= 
S 
o 


011442 


011414 


000040 
000131 


000116 


001564 


167540 


WF CHK: 


WFTEST 
5$ 


BASECH 
#20000 ,@STREG 
#B1T1,aSTREG 


1$ 

#37 ,BASEND 
, TSTAD 
@DRVDIR,RO 


#177417,R0 
#60.RO 


#57 ,BASEND 
TADM 


@DRVDIR,RO 
#177417,R0 
#340,R0 


5$ 
-BADID 

- YORNO 
#100 ,a$TKS 
-(SP) 

#4$ ,~(SP) 
(SP)+,RO 


#40, (RO) 
(RO) AY 
6$ 


PC 
(RO) ,A'°N 
3$ 


@ABEG2 


; RUNNING ON TESTER? 
IF NOT 


CLEAR STARTING CHANNEL 

S CHANNEL 40 PRESENT? 

21S THE NON-EXSISTENT CHANNEL BIT SET? 
33;NO, TESTING A/D AND AM 

7SET UP LAST CHANNEL TO TEST 
TYPE TESTING A/D MESSAGE 

7GET I D BITS 

CLEAR UNWANTED BITS 

:1S THE I D CODE CORRECT? 

SET UP LAST CHANNEL TO TEST 
TYPE TESTING A/D AND AM MESSAGE 
:GET I D BITS 

[CLEAR UNWANTED BITS 

31S THE I D CODE CORRECT? 


; sRETURN 

TYPE BAD I D CODE MESSAGE 
TYPE CONTINUE TESTING MESSAGE 
;GET RESPONSE 

ENABLE KEYBOARD INTERRUPTS 
CLEAR PSW 


READ ANSWER 

steiee OT UPPER CASE 
;;NO, CHECK FOR 'N’’ 
an era 


31S IT 





+ :NO, ase AGAIN 
:RESTART IF CONTINUED 
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;*ROUTINE TO TYPE OUT A/D CONFIGURATION 
:*IF RUNNING IN TEST MODULE MODE, ASK FOR CHANNELS TO TEST 


011446 : CLEAR FIRST CHANNEL TO TEST 
CLR ;CLEAR LAST CHANNEL TO TEST 
;FRESH LINE 
i, IF FIRST PASS 
F NOT 


:BR 
ed WESTFIELD FLAG 
eeR UNNING WITH NO TEST MODULE/TESTER 
BPL 21 RUNNING IN TEST MODULE MODE BUT NO TESTER 
020171 ‘3 ; TYPE SET DWARF TO DIFFERENTIAL MESSAGE 


BR 
020125 : TYPE SET DWARF TO SINGLE ENDED MESSAGE 
: ° ZTYPE SET A/D TO TEST MESSAGE 
021463 WR ; TYPE CARRIDGE RETURN WHEN READY MESSAGE 
WAIT FOR CARRIDGE RETURN 

:POP 1_ WORD “ STACK 

017524 : vr G [REPORT UNIT 
; DETERMINE ASCII UNIT # 


;LEAVE A BLANK LINE 
;SET UP STARTING CHANNEL 
;SET UP FIRST I.D. STATUS 
33GO0 TYPE RESULTS 
t INC :START A CONVERSION 
167562 : is : [WAIT FOR CONVERSION TO FINISH 


$ 
167560 @ADBUF F ,RO ;GET RESULTS 


R1,-(SP) :;SAVE R1 FOR TYPEOUT 
3:GO TYPE--OCTAL ASCII 

2 +: TYPE 2 DIGIT(S) 

0 ; ;SUPPRESS LEADING ZEROS 

_MDASH PE A DASH 

#3,R1 3 TO CHANNEL FOR DIFFERENTIAL 

#7777 .RO E ENDED 


itch st tet tet kth 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


—4 


#4,R1 
#100,R1 :1S CHANNEL > LAST POSSIBLE CHANNEL 
101002 6$ 33NO 
012701 #77 ,R1 sYES, SET TO LAST CHANNEL 
010146 MOV R1,-(SP) 7 SAVE R1 FOR TYPEOUT 
104403 . 
0 ; SUPPRESS LEADING ZEROS 
RO :1S CHANNEL SINGLE ENDED? 
BNE 7$ 33NO0 
017353 MSE ; TYPE Hf end ENDED MESSAGE 
BR TEST MORE CHANNELS 


$ 
140000 : #B1T15!B1T14,R0 ‘DOES CHANNE |. HAVE PREAMP? 


WANA AWWW A AA OA 
me ed ed eed eed ed od od od od 
SOUOMNOUSWNYYeYeY Oo 


4 So SS SH I 


— ee ee Y 
WWWWWAAAA 
NYONNSSSSN 
MBWAAawewww 
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Bay 


BURAK 


SR RE RERERG 


WOON 


rw 


Hty-ty-te-$ 3 


COONS 


WWWIWWANA 


SESESESSE 


re) 


Sea 
QARANIS 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


a 
a 
338 


017373 
017413 
000100 


000010 
167426 
000002 


001165 
000001 


012210 
000010 
000100 
000010 
167344 
000002 
167330 
167324 
167322 
007777 
000004 
001370 
00001 

000100 


000010 
167250 
000002 


167234 
167230 


167226 
007777 


167420 


001476 


167336 


167242 


MACY11 
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R1 
#100,R1 
10$ 
R1,RO 

RO 
#B1T,RO 


RO, @STREG 
a -@STREG 


YPE -$CRL 
USING. TEST MODULE. OR TESTER 


NO 


T THEN EXIT 
MP 


#1 ,WFTEST 
208 


R1 
PC ,ASKC 
14$ 


#BiT1,aSTREG 
19$ 

@STREG 
@STREG 

17$ 


@ADBUF F ,RO 
#7777 ,RO 
19$ 


PAGE 24-1 
SEQ 0050 


sVES, PREAMP 

z Tre DIFFERENTIAL ME SSAGE 

eve TEST MORE CHANNELS 

TYPE PREAMP MESSAGE 

SET CHANNEL TO NEXT SET OF CHANNELS 


yes. 
‘GET CHANNEL 

;PUT CHANNEL NUMBER IN HIGH BYTE 
SET STATUS ENABLE BIT 

[LOAD INTO A/D STATUS REGISTER 
:1S NON-EXSISTENT CHANNEL BIT SET? 


MODE, DO MORE TESTING 
°° eng DWARF MODE? 


SET UP TO ASK FOR FIRST GROUP 
ZASK TO TEST CHANNELS 


: INDEX TO NEXT CHANNEL BANK 
T CHANNEL INTO RO 
ANY MORE CHANNELS? 


‘Pur CHANNEL IN HIGH BYTE 

SET STATUS ENABLE BIT 

[LOAD INTO A/D STATUS REGISTER 

:1S THE NON-EXSISTENT CHANNEL BIT SET? 


: START A_CONVERSION 
;WAIT FOR CONVERSION TO FINISH 


GET RESULTS 
1S S_ CHANNEL SINGLE ENDED? 


: INDEX TO NEXT CHANNEL BANK 


SAVE FIRST CHANNEL TO TEST 
: INDEX TO NEXT BANK 


T CHANNEL INTO RO 
sANY MORE BANKS? 


:PUT CHANNEL INTO HIGH BYTE 

SET STATUS ENABLE BIT 

[LOAD INTO A/D STATUS REGISTER 

248 THE NON-EXSISTENT CHANNEL BIT SET? 


‘START A_ CONVERSION 
;WAIT FOR CONVERSION TO FINISH 


GET RESULTS 
:IS oe SINGLE ENDED? 


ee 
ee 
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012210 18$: Js PC -ASKC zASK TO TEST CHANNELS 
19$: R1 *DECREMENT CHANNEL 

001372 MOV R1,BASEND “SAVE LAST CHANNEL TO TEST 

017721 , TCHAN : NG CHANNELS °° 

001370 BASECH,-(SP) 


2 
0 


— ot od = 


GIT(S) 
; SUPPRESS LEADING ZEROS 
017347 -MDASH thn Bgl 
001372 MO BASEND , = (SP) 7;SAVE BASEND FOR TYPEOUT 


2 
0 ; SUPPRESS LEADING ZEROS 
001165 .SCRLF TYPE A CARRIDGE RETURN, LINE FEED 
208: PC ;RETURN 


s*ROUTINE TO ASK CHANNELS TO TEST 
017721 ASKC: TYPE ~T CHAN sTYPE ‘‘TEST CHANNELS “' 
MOV R1,-(SP) sZzSAVE R1 FOR TYPEOUT 
3:GO TYPE--OCTAL ASCII 
2 zz TYPE 2 DIGIT(S) 
0 7; SUPPRESS LEADING ZEROS 
»MDASH sTYPE ‘'- °° 
R1,R0 ;PUT CHANNEL INTO RO 
#7,R0 : HANNE GR 
RO,-(SP) SA 
33GO_ TYPE~-OCTAL ASCII 


2 zeTYPE 2 DIGIT(S) 
. 0 ; SUPPRESS LEADING ZEROS 
017345 e QUEST ; dh Pose 


GET RESPONSE 

(SP)+,RO GET ADDRESS OF RESPONSE TEXT 
000040 #40, (RO) ;MAKE CHARACTER UPPER CASE 
000131 CMPB #'y, (RO) 31S IT A Y? 

2s 77 YES 
000116 * leaned iS IT AN N? 
017745 ~YESNO :TYPE "TYPE Y FOR YES. N FOR NO" 

BR ASKC # 
000002 : #2, (SP) :SKIP OVER BRANCH 
: PC ; RETURN 


eS 


Fat ae et Ft ae 
BESSSBSISo Hee ReS 
on 


WWW 
uns 


— oe od = Ls 
© 


R 


oe 
u~e~ww 


ee 
WARAWWAWR RA 
Qs 
N 


98 
1) 
1) 
1) 


3 


8888 


S888 


~ 
3S 
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017425 
001244 
017517 


177776 
017461 
001240 


017517 


177776 
100000 
002536 


hee ge pad | TO CHANGE GASE AND VECTOR way 
BASEXC: TYPE 


001240 
001240 /7$: 
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BASE .~(SP) 
-ENCOM 
(SP)+ 
“2csP), $BASE 


$VECT1,R1 
R1,-(SP) 


3 

1 

-ENCOM 

(SP)+ 

7$ 

~2(SP) ,$VECT1 


#B1T15,$VECT1 
MTEST1 


PAGE 25 
SEQ 0052 


FOR MODULE ADDRESS 
: SAVE sbase FOR TY 


PEOU 
33;G0 TYPE--OCTAL ASCII(ALL DIGITS) 


;DEFAULT ADDRESS ? 
NO BRANC 


H 
7SAVE ADDRESS IN reed 
ZASK FOR MODULE VEC 
GET VECTOR 

3 SAVE Ri FOR TYPEOUT 
32G0 TYPE--OCTAL ASCII 
seTYPE 3 DIGIT(S) 
3- TYPE LEADING ZEROS 


TAKE DEFAULT ? 


SET PRIORITY LEVEL 
START 
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. SBTTL ag IF MORE MNCAD'S TO BE_TESTED 
001436 : TST NBEXT sADDITIONAL AD‘S? 
BEQ F IXADR ;NO-IN at tinoa ADDRESSES 
001512 MASKNM ;MOVE BIT TO NEXT MODULE 


R1 
001512 MASKNM ,RO GET MASK NUMBER 
RO MOVE RIGHT 


2s BR IF DONE 

rt RI UPDATE INDEX VALUE 

oe STREG GET NEW ADDRESS 
NEW NEXT INDEX 


MNCADO(R1), VECTOR GET NEW VECTOR 
STREG,ADST1 ;PRIME OTHER ADDRESSES 


STREG , ADBUF F 
NBEXT ONE LESS MNCAD 
BYPASS 


#2, (SP) 
MIOTRD ,Q@MERRVEC ;SET UP ERRVEC 
MASKNM INIT. MODULE ERROR TEST BIT 
RELOAD INITIAL ADDRESSES 


SVECT.VECTOR ;GET DEFAULT VECTOR 
MOV NMBEXT | NBEXT RESET UNIT COUNTER 
BYPASS: ~ ADST1 


#2, ADBUFF 
#170000, VECTOR 
VECTOR, VECTR1 


ADD _—- #6, VECTR3 
;;LOAD .+2 AND JSR’PC,RO TRAP CATCHER;; 
MOV —- #222.,RO 


ZFILL .+2 

SLOAD JSR PC,RO 
RO, (R1)+ 

#4700, (R1)+ 

R1, RO 


(RO) + 
RO,#1002 


026572 PC WHI CHU ;DETERMINE UNIT 
012702 PC : TEST NEXT A/D 





on 
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104416 TYPSET: TYPDC 
104401 021021 TYPE ,LSB 
012712 013746 001434 CH2,-(SP) eh ay FOR TYPEOUT 
012716 104403 ::GO_ TYPE--OCTAL ASCII 
12720 002 2 +3 TYPE 2 DIGIT(S) 
000 . UPPRESS LEADING ZEROS 
104401 021056 ATMSG TYPE ASCIZ STRING 
004737 PC, TYPEDG 
104401 T 


,SE CH 
013746 CH, -(SP) 7ZSAVE CH1 FOR TYPEOUT 
si TYPE CH 
104403 32:GO TYPE--OCTAL ASCII 
002 2 zz TYPE 2 DIGIT(S) 
000 0 7; SUPPRESS LEADING ZEROS 
104401 021056 aves 
013737 001432 012772 ¢H1 
012777 000200 166370 #200. aaneur F 
004537 015352 RS, CONVRT 


000000 : 0 
013746 001426 TEMP ,~(SP) 73SAVE TEMP FOR TYPEOUT 
3sTYPE VALUE 
2:G0 TYPE--OCTAL ASCII 
iz TYPE 4 DIGIT(S) 
7sTYPE LEADING ZEROS 
016364 


021132 


: INDICATE BAD UNIT 
UPDATE ERROR TOTAL 


1 oe gurl a FOR SETTLING TESTS;; 
012737 013120 géT1 MOV #1$,ERRADR SET UP ERROR RECOVERY ADDRESS 
013737 001434 MO CH2 , DUMMY ;LOAD DUMMY 
sith 013224 35 R5, SARSUB DO SAR ROUTINE AT 50% 


004737 007744 PC, TSTDAC CHECK VERNIER DAC SETTING 
063702 001464 DAC ,R2 ADD RESULT TO Re 

013737 001432 CH1 , DUMMY CHANGE DUMMY VALUE 
004537 013224 R5, SARSUB :D0 SAR ROUTINE AT 50% 


004737 007744 PC, TSTDAC ;CHECK VERNIER DAC SETTING 
163702 001464 DAC Re SUBTRACT RESULT FROM R2 

062716 000002 #2, (SP) ;BUMP RETURN ADDRESS TO SKIP OVER BRANCH 
000207 : PC RETURN 





on 
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;:SUBROUTINE TO TYPE EDGE VALUES: 


013122 013703 001470 TYPEDG: MOV 2Ro 
013126 010346 MOV R3,-(SP) 32:SAVE R3_FOR TYPEOUT 
33 TYPE OCTAL VALUE OF EDGE 
;3GO TYPE~-OCTAL ASCII 
4 7eTYPE 4 DIGIT(S) 


° 1 33 TYPE LEADING ZEROS 
013164 000001 MP “ee 


000007 #7 ,R3 
017343 -MINUS sTYPE ASCIZ STRING 
013154 R3,-(SP) ;;SAVE R3 FOR TYPEOUT 


UE 
013156 ::G0 TYPE=-OCTAL ASCII 
004 4 sz TYPE 4 DIGIT(S) 
1 ::TYPE LEADING ZEROS 


RET: PC 

EDGFLG: 0 

; SUBROUTINE TO LOAD VECTOR AREA WITH TRAP CATCHER 
SETINT: MOV #222,R0 ;LOAD UP POINTER 
MO ;LOAD ADDRESS 


NOR) 3 3 POP 
Swevyeoen— 


2s: ;LOAD POINTER TO NEXT WORD 
LOAD *BAD'' INSTRUCTION 
R1,RO ;LOAD oy ADDRESS POINTER 


(RO) + ;BUMP VALUE 
#1002,RO0 FINISHED? 
2$ ;BR IF NOT 


013222 PC sEXIT 





an 
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1339 
1540 ; SUBROUTINE TO DO SUCCESSIVE APPROXIMATION ROUTINE 
1541 ; :CALL=JSR hee 
1542 XXX; XXX=PERCENT 
1543 :RESULT RETURNED IN ‘DAC’ ah RO,R1,R4 
1544 013224 012537 001502 SARSUB: MOV (R5)+,PERCNT GET PERCENT 
1545 013230 006337 001502 ASL PERCNT 
1546 013234 006337 001502 ASL PERCNT 
1547 013240 006337 001502 ASL PERCNT sRESCALE PERCENT FOR 1600. 
1548 013244 006337 001502 ASL PERCNT POINTS PER BURST 
1549 013250 012737 000200 001472 MOV #200,BITPNT INITIALIZE BIT POINTER AT MSB 
1550 013256 905037 001464 CLR DAC SINITIALIZE DAC VALUE 
1551 013262 005000 TRY: CLR RO 
1552 013264 063737 001472 001464 ADD BITPNT ,DAC TRY BIT 
1553 013272 013777 001464 166056 MOV DAC , @ADBUF F 
1554 013300 012701 003100 MOV #1600. ,R1 SET UP FOR 1600. CONVERSIONS 
1555 013304 113777 001442 166042 NXTCVT: MOVB DUMMY ,@ADST1 PRESET MUX TO DUMMY CHANNEL 
1556 013312 012777 001540 166040 MOV #RETURN, VECTOR RETURN ADDRESS 
1557 013320 052777 000101 166024 BIS #101, a@STREG CONVERSION ON DUMMY CHANNEL 
1558 013326 000001 WAIT WAIT FOR INTERRUPT 
1559 013330 017704 166022 MOV @ADBUF F ,R4 ;DUMMY READ 
1560 013334 013704 001444 MOV CHANL ,R4 
1561 013340 000304 SWAB R4 
1562 013342 052704 000101 BIS #101,R4 ; INTERRUPT ENABLE START 
1563 013346 010477 166000 MOV R4,aSTREG ; JUMP TO CHANNEL + START CONVERT 
1564 013352 000001 WAIT ;WAIT FOR INTERRUPT 
1565 013354 027737 165776 001470 CMP @ADBUF F , EDGE 
1566 013362 002001 BGE 2s 
1567 013364 005200 INC RO ;COUNT RESULTS .LT. EDGE 
1568 013366 005301 2$: DEC R1 
1569 013370 001345 BNE NXTCVT 
1570 013372 020037 001502 CMP RO,PERCNT 
1571 013376 003003 BGT SHIFT 
1572 013400 163737 001472 001464 SUB BITPNT ,DAC TAKE THE BIT OUT 
1573 013406 006237 001472 SHIFT: ASR BITPNT 
1574 013412 001323 BNE TRY 
1302 013414 000205 RTS R5 
137t ;ROUTINE TO DELAY IF PROCESSER CAN NOT DO SOB INSTRUCTION 
1579 013416 005300 DELAY4: DEC RO ;DECREMENT RO, IS IT ZERO? 
1580 01342C 001376 BNE DELAY4 :NO 
1581 013422 000002 RTI ; RETURN 


an 
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DIFFERENTIAL LINEARITY SUBROUTINE; ; 
022203 BIFLIN: TYPE eo SIDENTIFY TEST 
PC ,WH] CHU [DETERMINE UNIT # 


UNI TBD, -(SP) 
:TELL OPER. THE # 


;SET UP RANDOM NUMBER GENERATOR 


34096 WORDS FOR HISTOGRAM 
;CLEAR BUFFER AREA 


;DISTRIBUTION BUFFER POINTER 
3200. WORDS FOR DISTRIBUTION 


;CLEAR DISTRIBUTION BUFFER AREA 


; CHANNEL 3 
;LOAD MUX BITS 


001466 NOMINAL STATE WIDTH - 1 LSB 
165560 pn AE -@VECTOR 


R4,R2 GENERATE A RANDOM NUMBER 
a3 Me 


R2,RO ;PUT RANDOM NUMBER IN RO 
177770 #177770, RO :MASK IT TO 3 BITS ONLY 


DELAY1: RO. DELAY] STALL TIME 
165522 CONVR1 : @STREG START CONVERSION 
165516 ;GET es all VALUE 
; IGNORE 
007777 ; IGNORE IF =7777 


RO 
031604 NS lead MAKE HISTOGRAM 
077777 031604 #077777 ,BUFFER(RO) ;PREVENT OVERFLOW 
BR OKAY1 
001426 NOTOK1: cia 





an 


CVMNA-A_MNCAD/MNCAM 


CVMNAA.P11 


014116 


DIAGNOSTIC 


007777 


001426 


177770 


165406 


165402 
007777 


031604 
077777 031604 
001426 
007777 


001426 


177770 


165272 


165266 
007777 


031604 
077777 031604 


MACY11 27(654) 
DETERMINE IF MORE MNCAD'S TO BE TESTED 


LODLY1: : 
HIDLY1: 


OKAY1: 


DELAY2: 
CONVR2: 


NOTOK2: 
LODLY2: 
HIDLY2: 


OKAY2: 


DELAY3: 
CONVR3: 


G 5 
19=SEP=78 08:51 


RO,.47777 


RO 
BUF FER(RO) 


OKAY2 
#077777 ,BUFFER(RO) 
OKAY2 


a a 7770, RO 
RO. DELAY3 
@STREG 


RO 
BUF FER (RO) 


PAGE 30-1 


;EQUALIZE LOOP TIME 
WITH DUMMY INSTR. 


;GENERATE A RANDOM NUMBER 


;PUT RANDOM NUMBER IN RO 
:MASK IT TO 3 BITS ONLY 


:STALL TIME 
; START CONVERSION 


7GET a VALUE 
; IGNORE =0 
; IGNORE IF =7777 


MAKE HISTOGRAM 


PREVENT OVERFLOW 


;EQUALIZE LOOP TIME 
WITH DUMMY INSTR. 


GENERATE A RANDOM NUMBER 
PUT RANDOM NUMBER IN RO 
:MASK IT TO 3 BITS ONLY 


STALL TIME 
START CONVERSION 


3;GET CONVERTED VALUE 
; IGNORE IF =0 
SIGNORE IF =7777 


MAKE HISTOGRAM 
OKAY3 
#077777 ,BUFFER(RO) 
OKAY3 


;PREVENT OVERFLOW 


SEQ 0058 





Qo 
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014120 001426 NOTOK3: CLR TEMP 
0004 BR 


OKAY3 
007777 LODLY3: RO,47777 ;EQUALIZE LOOP TIME 
BE HIDLY3 WITH DUMMY INSTR. 
HIDLY3: R1 


001426 IN TEMP(R3) 
BM NOTOK3 
OKAY3: R1 
NEXT1 
001466 AROUND : DELAY 


BNE AGAIN 
; TAKE THE CONTENTS OF THE ACQUIRED DATA BUFFER AND 
: TEST IF WITHIN CERTAIN LIMITS 
; AND CREATE A STATE DISTRIBUTION BUFFER 
: AND SORT THE VALUES INTO ‘BINS'' 
014156 0127 MOV #4094. ,RO 
014162 MO #BUFFER+2 ,R1 
(R1)+,R2 :GET STATE WIDTH 
2 ;1 LSB = 800. 


014154 


R2 31 LSB = 100. 
000310 ;OUT OF RANGE? 
INRNGE 


001504 YES - INCREMENT COUNTER 


R2 
030764 I 4) MAKE STATE WIDTH DISTRIBUTION 
000062 31S IT 1/2 LSB? 
NAR 


001420 
71S IT A SKIPPED STATE? 


001424 
TYPBAD 

000226 31S IT 1.5 LSB? 
LAST 


001416 
001422 


001422 
020771 


: R1,R3 
031606 #BUFFER+2 ,R3 


0 3 R 
014310 R3,-(SP) 3:SAVE R3 FOR TYPEOUT 
32 TYPE STATE 
014312 ::GO TYPE-~OCTAL ASCII 
004 ic TYPE 4 DIGIT(S) 
33TYPE LEADING ZEROS 


PRININININL ULL ie ee ae ee ee ae ee 3s 
WNRARWN SO OONAU RW OOS NI 


MEWN— 


1 
1 
7; 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
; 
: 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


oe eae | 
wweww sy 


& 


020765 
014324 020756 


mt ant on 
NNNA AAA 
nw 
ow 
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4330 005300 LAST: DEC RO 


01 
014332 001315 BNE READ 
REPORT TO THE OPERATOR THE DIFFERENT STATE VALUES 
: IN THE FORM_OF A GENERAL STATUS AND INDICATE OK/ERROR 
112737 000177 024545 MOVB #177, NT 
001424 SKIPST,R2 Ad st OF SKIPPED STATES 


Y 
021623 , SKPMSG ;TYPE MESSAGE 
1424 i. PST 
; TYPE ‘ERROR’ 


,ERMSG 
PC ,WHICHV ; INDICATE BAD UNIT 
—" UPDATE ERROR COUNT 


- OKMSG TYPE #OKA 
NARROW ,R2 4 34 ef OF NARROW STATES 


; TYPE 
; TYPE MESSAGE 


TYPE NO. OF WIDE STATES 
i TYPE me SSAGE 


TYPE NO. OF STATES OUTSIDE 2 LSB 
i TYPE me SSAGE 


; TYPE ‘ERROR’ 
;DETERMINE BAD UNIT 
;UPDATE ERROR COUNT 


; TYPE OK’ 


TYPE NO. OF STATES OUTSIDE LIMITS 
024545 


; COMPARE IT TO NOMINAL 


i TYPE *ERROR’’ 
Z INDICATE BAD UNIT 
[UPDATE ERROR COUNT 


~ 
021132 21$: YPE OKMSG YPE *‘Ok"' 
DETERMINE IF vr55<1 TYPE TERMINAL’ Is CONNECTED 
: IF NOT BYPASS THIS SECTION 
IF sinned + GRAHIC TERMINAL REPORT THE DISTRIBUTION CURVE 
001460 SWDIST: TST :BIT MAP TERMINAL AVAILABLE? 
BE RELACC IF NOT 
015254 PC,DELCLR [WAIT AWHILE, THEN CLEAR BIT MAP TERMINAL 
022247 »MSG16 
014576 023027 »BUFF 1 ; TYPE BUFF1-PRINT GRID 


7 
767 
768 
769 
1770 
771 
772 
773 
774 
775 
776 
777 
778 
779 
780 
781 
782 
783 
784 
785 
786 
787 
788 
789 
790 
791 
792 
793 
794 
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030764 ADIST,RO POINTER TO STATE WIDTH DISTRIBUTION 
000310 MO #200. .R1 3;GO 200. TIMES UP TO 2 LSB 

NXTY1: (RO) +,R2 
015750 J wr 


R 
015750 + nets 
NXTY1 


022765 C2 ; TYPE ASCIZ STRING 
015254 PC,DELCLR 


— 


RERSSSeSSS | 


1 
1 
1 
1 
1 
1 
1 
1 
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CHANGE HISTOGRAM ERROR TO RELATIVE ACCURACY ERROR 


RELACC: CLR ;RUNNING ERROR = 0 
CLR R 3;MAXIMUM ERROR = 0 


S228 


022574 


031606 MO 
NXTSTA: (RO) ,R2 sSTATE WIDTH = R2 
001440 S #800. ,R2 : STATE WIDTH oy RL R2 


00.00 00 
pear eer eer 


00 00 00 Co Co Co CO 
ad ad ad ad ed od od 
WOONAULSWN—O 


E POSITIVE 
CHECK AGAINST PREVIOUS MAX. ERROR 
SNOT A NEW MAXIMUM 
;UPDATE MAXIMUM IN R3 


a ee 


8 


RO,R5S 
031606 era 


A ;RS=EDGE VALUE AT MAX. RELACC 
051602 : RO,ABUFFER+8190. ;DONE? 

BN’ NXTSTA NO - REPEAT 
;RESCALE FROM 1 LSB = = SCAL ING 
;TO 1 LSB = 100. SCALIN 


104401 022621 LINEA 
014742 010546 RS,-(SP) : SAVE RS RS for TYPEOUT 
014744 104403 ::60 T TYPE--OCTAL ASCII 
004 ; 4 TYPE 4 DIGIT(S) 
+S TYPE LEADING ZEROS 


001 1 
104401 021130 . SLASH 
005205 R5 

010546 R5,-(SP) 73 SAVE - FOR TYPEOUT 


72 TYPE LEADING FEROS 


; INDICATE BAD UNIT 
;UPDATE ERROR COUNT 
021132 
001460 ;BIT MAP TERMINAL ? 
;BR IF NOT 
031604 ‘ 
015026 012701 010000 #4096. ,R1 


RRRELE 
ONAUEW 
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GETDAT: MOV GET RELATIVE ACCURACY ERROR SCALED 1LSB = 800. 
ASR 2 ;RESCALE IT TO 1 LSB = 100. 


AND MOVE IT TO MID-SCREEN 
PUT IT BACK INTO BUFFER 


7MINIMUM 
=MAXIMUM 


SECSERERES 
ePNars 


sNEW MINIMUM 
NEW MAXIMUM 


NXT CMP 

MIN, (R4)+ 

MAX, (R5)+ 

pre ive ;BUMP EACH ONCE MORE 


NXT8 
-MSG18 


-BUFF 2 3 TYPE BUFF2 
#BUF FER ,RO 
PC,LOAD 


TYPE ASCIZ STRING 


mi 
A#BUFFER+2,R0 
PC,LOAD 


A 
015254 J a: -DELCLR 
001000 


TYPE ASCIZ STRING 


015750 


SESRESSSSESE 


015252 
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002000 163656 DELCLR: BIT #81T10,aSWR ; TEST FOR HALT FOR DISPLAY 
BEQ 1$ ;;DON'T HALT FOR DISPLAY 


03277 
001402 
900000 


1$: RO - 
000020 2$ 43 ;DELAY BEFORE CLEANING SCREEN 


CPt it 


023114 3$: 
RTS PC 
33 TYPE RMS AND PEAK VALUES; ; 
TYPRP: TST R2 
POSNOI 
R2 


015306 
015312 


015314 1S NOISE POSITIVE? 


7Y 
3R2<0,SET R2=0 


POSNOI : 
023016 -MLSBAT ; TYPE ‘' LSB AT "’ 
013122 J PC, TYPEDG 
7 TYPE ** ON CHANNEL *’ 


C 
013746 MO CHANL , = (SP) 2sSAVE CHANL FOR TYPEOUT 
23TYPE CHANL 
104403 22GO TYPE-~OCTAL ASCII 
002 2 ze TYPE 2 DIGIT(S) 
: SUPPRESS LEADING ZEROS 


— Se SS Ss Se ss SS SS SS SS YS SS SS SS SS 


WORARKROVOOOOVOOVNOVOYDO 
a ee ee ee ee ed ed ceed eed ed ed 
wvyvyv OOnoustwn—o 


000 0 
015350 000207 TS PC 


3 








CVMNA~A naib 
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015354 
015360 


015546 
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DETERMINE IF MORE MNCAD'S TO BE TESTE 
;;ROUTINE TO AVERAGE 8 CONVERSIONS; ; 
CONVRT: MOV (R5)+,RO 


001444 MOV RO, CHANL 
000200 163770 CONVTC: #200, @ADBUF F 
001444 CONVCD: M CHANL ,RO 


TEMP 
163732 MOV #RETURN,@VECTOR 
163726 #200 ,aVECTR1 
#10,R0 


001426 


DAT,R1 
ed RO 


RO 
RO, SPREAD 
10$ 


(R5)+ 
R5 


;GET CHANNEL VALUE 


;LOAD VERNIER DAC 

GET CHANNEL 

;SET UP A/D STATUS REGISTER 
ENABLE INTERRUPTS 


;DAC SETTLING DELAY 


;LOAD VECTOR 

;SET UP NEW PSW 

SET UP COUNTER 

; START CONVERSION 
;WAIT FOR CONVERSION 
sREAD BUFFER 


;D0 8 TIMES 
AVERAGE VALUE 


;RETURN 


:GET GOOD DATA 
GET SPREAD 
GET BAD(ACTUAL) DATA 


;GET DIFFERENCE 


;COMPARE IT TO SPREAD 
;GO TO ERROR PRINTOUT 
;BUMP RETURN POINTER AROUND ERROR CALL 
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a TO AVERAGE 8 CONVERSIONS ON GOOD AD;; 
015550 GCONVT: MOV (R5)+,RO ;GET CHANNEL VALUE 
001444 MOV RO » CHANL 


001426 
163606 rots ;LOAD CHANNEL INTO MIX BITS 


33 
163574 #RE TURN , @GVECT ;LOAD VECTOR 
163570 #200 ,aGVECT+2 SET UP NEW PRIORITY 
#10,RO SET UP_ COUNTER 
163550 : #101,@GSTREG [SET INTRPT. EN., START CONV. 
z;WAIT FOR CONVERSION 
001426 enema ont READ BUFFER 


D0 8 TIMES 
AVERAGE VALUE 


RETURN 
3; SUBROUTINE TO CONVERT 2.60 VOLTS TO 15.00 VOLTS;; 
+ 3 FUNNY NUMBER CALCULATED BY: 
ze (15*2.56/ (VOLTAGE) )/0.0025 
CONV15: #B1T11,R3 iIS RESULT MINUS? 
BN 1$ 


R3 :VES. MAKE IT PLUS 
tel, YPE ' 


-MINUS 
4000 1$: #174000,R3 :CLEAR UPPER 5 BITS 
R2 CLEAR RESULT REGISTER 
013424 ° [PUT FUNNY NUMBER INTO R1 
002000 sSETUP TEST BIT 
2s: e R3 SMULTIPLY TEMP BY FUNNY NUMBER 


oo 


3$: 


7sNOT FINISHED YET 
SCALE TO .01 VOLTS / BIT 


; TYPE RESULTS 
020442 ;TYPE ‘‘VOLTS"’ 
015746 PC 
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; SUBROUTINE LOADY; 
015750 LOADY: 


TST Re ROUTINE TO LOAD VLAUE INTO R2 
BP’ PLUSR2 3AS A VT55 Y=VALUE 


C R2 
000353 PLUSR2: R2,4235. 

8 LESS 
000353 MO #235. ,R2 

LESS: 

177740 
000040 
163142 B10: ib aor Ss PRINT CHARACTER 
163136 


R3 
177770 #177770,R3 
#40,R3 


000040 
163106 : PRINT CHARACTER 
163102 
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024543 


024547 
024547 


024547 
024546 
024546 
024546 
024544 
024544 


024544 
024543 


000060 
000060 
000060 
000060 
024543 
024543 
024544 


000012 


000012 


000012 


Set eer 


D 6 
MACY11 27(654) 19-SEP-78 08:51 PAGE 37 


; s SUBROUT INE TO TYPE DECIMAL VALUE; ; 
3IN R2 AS_X.XX3; 
DECTYP: TST R2 ; TEST VALUE TO BE TYPED 
BPL POS 
-MINUS TYPE MINUS SIGN 


R 
POS: MP ah 3>9999. REPLACE IT WITH 9999. 


~ -R2 
OKAYD: ES CLEAR ONES 
: CLEAR TENS 


CL OUS 
TESTR2: i R2 ;CONVERT VALUE TO A DECIMAL VALUE 


;PREPARE FOR TYPOUT 


THOUS , #60 
1$ 

- THOUS 
~HUNS TYPE VALUE 
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; SUBROUTINE TO SENSE THE 'WFTEST’’ FLAG AND USE WIDE/NARROW ERROR TOLERANCES 


012701 016360 WF ADJ: #VNR ,R1 + SUBROUTINE TO SET LIMITS 
001476 T WFTEST : RUNNING ON TESTER ? 


03 1$ YES 
* 016372 * etl SWF TEST NOT MINUS, USE NORMAL LIMITS 


016402 : AVARLT2,R2 “UF TEST MINUS, USE OPTION AREA LIMITS 
e (R2)+,(R1)+ [SET UP LIMITS 
(R1) ; DONE? 
2s 3 3NO 
PC 


; TOLERANCE VALUES FOR FUNCTIONAL TESTS 


:*VOLTAGE TABLE OF EXPECTED VALUES a Tek <TEST — 
VTABLE : 335 ;+2.2 VOLTS H10, 20, 30 ETC 


<CH14, 24, 34 ETO> 


S 
3 VOLTS <CH17, 27, 37 ETC> 
SB,NORMAL LIMITS FOR SYSTEM 
INTEGRATION AND FIELD USE ON SPEC TESTS 
016366 
016370 
;LIMITS 


016372 0000 VARLT1: 40. -4 LSB, NORMAL LIMITS FOR SYSTEM 
2 :3 LSB, INTEGRATION AND FIELD USE ON SPEC TESTS 


;1 LSB 
gt. 35 LSB 


cee ced cd ae ed cd ed eed eed 
WONAUSWN =O 


LIMITS TESTER 


VARLT2: oe LSB RMS NOISE LIMIT 
150. 1.5 LSB PEAK NOISE LIMIT 

2.9 LSB INTER=CHANNEL SETTLING LIMIT 

717 LSB RELATIVE ACCURACY ERROR LIMIT 





om 
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-SBTTL END OF PASS ROUTINE 


DAISIES IIIS SISIIOIOIOIOIITIIOIIOITIOIOITIOII IIIT TTT TOOT TOT TT TTT TTT TT TE 
{INCREMENT THE PASS NUMBER ($PASS) 
:*TYPE "END PASS AXXXXX'' (WHERE XXXXX IS A DECIMAL NUMBER) 
[*IF THERES A ot noe GO TO IT 
:*IF THERE ISN'T JUMP TO EXTMSG 


SEOP: 


STSTNM 3;ZERO THE TEST NUMBER 

STIMES _ +s ZERO THE NUMBER OF ITERATIONS 

$PASS ; INCREMENT THE PASS NUMBER 
001176 ee : DON'T ALLOW A NEG. NUMBER 
+ 


SEOPCT: . “8 


SDOAGN ss ves 
(PC) +,a(PC)+ 3; RESTORE COUNTER 
SENDCT: . 1 


016517 . SENDMG ;TYPE ‘END PASS #°* 
001176 MOV $PASS ,~ (SP) S ESAVE $PASS FOR TYPEOUT 

A TYPE=-DECIMAL ASCII WITH SIGN 
016514 - SENULL ;;TYPE A NULL CHARACTER 
000042 $GET42: a#42,RO iSGET MONITOR ADDRESS 

$SDOAGN ; BRANCH IF NO MONITOR 
7:CLEAR THE WORLD 
SENDAD: J PC, (RO) ;:GO TO MONITOR 
3zSAVE ROOM 


aaF 
3ZACT11 
SDOAGN: 
a(PC)+ 7 RETURN 
SRTNAD: . epnee 
377 000 S$ENULL: . 0 ;NULL CHARACTER STRING 


042412 042116 $ENDMG: . <iS>cio>/END PASS’ #/ 
051501 020123 


000100 162402 EXTMSG: #B1T6,a$TKS sENABLE KRB INTR. 
001112 SERTTL ANY ERRORS 
1$ ;BR IF NOT 
022721 ~ERRTOT : TYPE TOTAL ERROR COUNT PRIMER 
001112 MOV SERTTL,-(SP) [GET VALUE 


;REPORT IT 
001440 NMBE XT TEST IF MULTIPLE 
1$ BR IF NOT 
022750 -MESGD TYPE BAD UNIT PRIMER 
001510 MOV BADUNT ,~(SP) 
REPORT 1 + O°S 


016514 : SENULL ENSURE ALL TEXT GET TYPED 
ean a(PC)+ ; RETURN 


Fe te i et te a i a ee ee a a i a 
ABNOR) 2 2 a Ss os SY SS 
ee ee ae ee 


(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
2131 
132 
133 
134 





an 


G 6 
CVMNA~A MNCAD/MNCAM DIAGNOSTIC MACY11 27(654) 19-SEP-78 08:51 PAGE 40 
CVMNAA.P11 END OF PASS ROUTINE SEQ 0071 


°* 
7*THIS ROUTINE WILL PROTECT THE PROGRAM 
: sFROM INTERUPTS (BAD ONES). 


;*THE TRAP CATCHER IS SET UP FOR 
3 - WORD +2 
is JSR PC, RO 


ILLEGAL INTERRUPTS OR INTERRUPTS TO THE WRONG VECTOR 
7*GOTO THE VECTOR AND PCITK UP THE ‘'.+2"' AS AN ADDRESS 


;*AND ''4700"' AS NEW STATUS. 
.+2 AS A PC WILL CAUSE EXECUTION OF THE ‘JSR ee RO'' (AN ILLEGAL INSTR.). 
- IN LOCATION 4 WE HAVE A 
: *POINTER HERE. IF wee CONDITION CAUSES A_TRAP TO LOC. 4. 
:*WE WILL REPORT IT IN THE SAME MANNER THAT WER WOULD 
7 *REPORT ANY OTHER ERROR. 
;*IF A BUSS ERROR TRAP DID OCCUT AND CAUSE A TRAP TO 4. 
:*WE WILL HALT. 


011637 017072 ¢ (SP) , TRTO GET WHERE WE _ TO. 
000004 017072 Ss FORM READ ADDR 
017072 001000 :DID TRAP FROM LESS THAN ADDR. 1000? 
2s ONTINUE. 


1$: cA BUSS ERROR TIME OUT TRAP BROUGHT US HERE. 
s ADDRESS CONTAINED IN TRTO. 
1$ ;DON'T ALLOW CONTINUE. 
017074 2$: 4(SP) , TRFRO ;GET TRAPPED FROM 


ADDR. 
001102 #21,$TSTNM ;LESS oe INTERRUPT TESTS? 


BLE 3 :NO MUST BE WRONG TOR 
SAIIIIIITTTIATATAT AAA AAA AA DATA AAA 
ERROR 3 ERROR! ILLEGAL INTERRUPT OR 
; INTERRUPT TO WRONG VECTOR. 
7I1F TEST NO. IS LESS THAN 10,ITS 
[LIKELY (BUT NO EXCLUSIVELY) TO BE A 
HE DEVICE UNDER TEST. 


:D I'D 
[SUSPECT A PROBLEM WITH THE DEVICE UNDER TEST. 
31F THE ADDRESS THE INTERRUPT 


ILLEGALLY. 
LIF THE ADDRESS THE INTERRUPT 
SVECTORED TO IS OUTSIDE OF THE 
; RANGE ASSIGNED TO THE DEVICE 
31°D SUSPECT THAT THE 
[DEVICE PUT THE WRONG INTERRUPT 
;VECTOR ON THE BUS DURING THE INTERRUPT 
;PROCESS. 


NOTE : 
ZFOR THIS ERROR ~ DON'T USE 
“LOOP ON ERROR’* OPTION. 





CVMNA~A_MNCAD/MNCAM 


CVMNAA.P11 


017074 


DIAGNOSTIC 


END OF PASS ROUTINE 


001176 
017524 


017550 
001360 


017601 
017072 


017631 
001362 


162014 


MACY11 27(654) 
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19-SEP-78 08:51 


PAGE 40-1 
SEQ 0072 


ALSO EXPECT THAT THE INTERRUPT a TO 
WILL REPOT THAT THE DEVICE DIDN'T 

: INTERRUPT. 

FOLLOW THE RECOMMENDED PROCEEDURE 

; IN THE DOCUMENT (ON THIS DIAGNOSTIC) 
;FOR LOOPING ON TEST. 


sist; Meibeingaakahl ted aaa os Hats heat ten 


3$: 


162404 4$: 
162402 


TRTO: 


TRFRO: 


«WORD 
. WORD 


(SP)+,(SP)+ 
(SP)+,(SP)+ 
‘ASS 


SUNIT,-(SP) 


-VTMSG3 
VECTOR ,~(SP) 
3 
1 

VTMSG1 
TRTO,-(SP) 


3 


VTMSG2 
VECTR1,@VECTOR 
VECTR3 ,aVECTR2 
#4700,aVECTR1 
#4700, aVECTR3 
TRTO, VECTOR 
#3, VECTOR 
VECTOR, VECTR1 
#2, VECTRI 
VECTOR, VECTR2 
#4, VECTR2 
VECTR2, VECTR3 
#2, VECTR3 
@STREG 

FF 


@ADBU 
@$LPADR 
0 

0 


;POP os wSR 9 

:POP_OFF WRONG INT 

21S THIS - FIRST *pass? 
DON’T REPORT 

‘Type "EXPECTED INTR. AT °° 

[DETERMINE THE UNIT # 


REPORT INTR. TO 

7; SAVE VECTOR FOR TYPEOUT 

2460 TYPE=-OCTAL ASCII 
TYPE 3 DIGIT(S) 

7: TYPE LEADING ZEROS 

7 TYPE ** RECEIVED eae " 


7 TYPE LEADING ZEROS 
i TYPE "RESTARTING TEST"’ 


READ A/D BUFFER TO CLEAR DONE FLAG 

START TEST OVER AGAIN. 

CONTAINS ADDR. WE TRAPPED OR INTERRUPTED TO. 
CONTAINS ADDR. WE TRAPPED OR INTR. FROM. 
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CVMNAA P11 ASCII MESSAGES 


2240 
2241 


2242 
2243 


2244 


020124 
020123 
047115 


040440 
051523 
017517 037440 000040 


MACY11 27(654) 


. SBTTL 
SCHAN: 


ECHAN: 


NOIMSG: 


SETMSG: 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 
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SEQ 0073 


ASCII MESSAGES 


<200>\STARTING ON CHANNEL = \ 
<200>\ENDING ON CHANNEL = \ 
<15><12>/NOISE TEST ON UNIT # / 


<15><12>/SETTLING TEST ON UNIT # / 
<200>/OFFSET TEST ON UNIT # / 


\IS THE MNCAD (A/D) TEST MODULE CONNECTED ? \ 


0 
0 


55 
77 
/ 
/ 


= / 
SINGLE ENDED/<15><12> 
/ DIFFERENTIAL/<15><12> 


/ PREAMP/<15><12> 
<200>\MNCAD (A/D) BASE ADDRESS <\ 


<200>\MNCAD (A/D) VECTOR ADDRESS <\ 
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CVMNAA.P11 ASCII MESSAGES SEQ 0074 C\ 


2256 O17 385 046600 02 VTMSG: .ASCIZ <200>\MNCAD (A/D) UNIT #\ 
020124 
2257 005015 054105 042520 VIMSG3: .ASCIZ <15><12>/EXPECTED INTERRUPT AT / 
0175 042105 044440 
052522 
020124 
042503 VIMSGI: . / RECEIVED INTERRUPT AT / 
044440 
052522 
020124 
VIMSG2: . <200>/PLEASE CHECK VECTOR SWITCHES/ 


<15><12>/ RESTARTING LOGIC TEST/<15><12> 
044507 
052123 
051505 : .ASCIZ <15><12>/TESTING CHANNELS / 


-ASCIZ /TYPE Y FOR YES, N FOR NO/<15><12> 


TSTAD: .ASCIZ <15><12>/TESTING MNCAD/<15><12> 


TSTADM: .ASCIZ <15><12>/TESTING MNCAM/<15><12> 


SADTST: .ASCIZ #SET MNCAD (A/D) FRONT PANEL SWITCHES TO ‘'TEST’'#<15><12> 


021124 
051472 SDSE: .ASCIZ <15><12>/SET TEST MODULE TO SINGLE ENDED/<15><12> 


020162 
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CVMNAA.P11 ASCII MESSAGES 


2267 


052105 


032461 
051524 
050115 
020122 
041440 


052116 


040524 041516 026105 


MACY11 27(654) 


SDDIF: 


DIFM: 


EXTST: 


TP15: 
™15: 
VOLTS: 
BADID: 


YORNO: 


eASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 


-ASCIZ 





K 6 
19-SEP-78 08:51 PAGE 41-2 C\ 


<15><12>/SET TEST MODULE TO DIFFERENTIAL/<15><12> 


<15><12>/SET TEST MODULE ON CHANNELS UNDER TEST TO DIFFERENTIAL/<15><12> 


<15><12>\PRESS EXTERNAL START ON MNCAD (A/D) TEST MODULE ON UNIT #\ 


<15><12>/+15=/ 
<15><12>/-15=/ 

/ VOLTS/ 

<15><12>/ IMPROPER 1.D. CODE/ 


<15><12>/CONTINUE TESTING? (Y FOR YES, N FOR NO):/ 


/SET MODE TO CURRENT, / 


/SET MODE TO RESISTANCE, / 


L 6 
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CVMNAA P11 ASCII MESSAGES SEQ 0076 


0 000040 

2277 020124 047515 SVM: ~ASCIZ /SET MODE TO VOLTAGE, / 
02 052040 020117 

rahe 043501 


2278 040507 047111 GHLF:  .ASCIZ /GAIN TO .5/<15><12> 
0664 032456 


000 
2279 020673 123 052105 043440 eASCIZ /SET GAIN TO 5/<15><12> 


020706 5015 000 
2280 1 043440 -ASCIZ /SET GAIN TO 50/<15><12> 
020720 


-ASCIZ. /SET GAIN TO 500/<15><12> 


eASCIZ / LSB/<15><12> 
eASCIZ /-- / 
-ASCIZ /STATE=- WIDTH/<15><12> 
/CH/ 
/ / 
/ LSB ON CH/ 
/ SETTLING FROM CH/ 


/ AT / 
/RMS NOISE / 
051511 


040505 $ /PEAK NOISE / 
051511 


047117 $ / ON CHANNEL / 


DOWN 


a/h 
eASCIZ / OK/<15><12> 
eASCIZ <15><12>/TYPE IN OCTAL CHANNEL NUMBER AND DEPRESS ‘'RETURN'': / 


REWWN 
WOns 


051042 
021116 
0212 000 
021231 052012 050131 SEL: <15><12>/TYPE ‘'0'' FOR OFFSET, ‘'G'’ FOR GAIN & DEPRESS ‘RETURN’: / 








CVMNA~A_MNCAD/MNCAM 


CVMNAA P11 


027461 


DIAGNOSTIC 
ASCII MESSAGES 


040412 
020124 


042452 
025052 


045523 
020104 
024105 


051122 
005015 


050111 
052123 
024523 


051122 
020074 
051514 


MACY11 27(654) 


-ASCIZ 


-ASCIZ 


-ASCIZ 
-ASCIZ 


-ASCIZ 


: .ASCIZ 
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SEQ 0077 C\ 


<15><12>/ADJUST R83/ 
/ FOR 0.00 LSB ERROR/ 


<15><12>/DEPRESS ‘'RETURN'' WHEN ADJUSTED/<15><12> 
<15><12>/ INPUT A GROUND ON THE CHANNEL/ ;MUST BE JUST BEFORE ‘'CRWR'' 


<15><12>/DEPRESS ‘RETURN'' WHEN READY/<15><12> 


<15><i2>/ INPUT +5.115 VOLTS ON THE CHANNEL/ 


<15><12>/ADJUST R84/ 


/+/ 
/ **ERROR**/<15><12> 


/ SKIPPED STATE(S)/ 


# NARROW (< 1/2 LSB) STATE(S)#<15><12> 
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CVMNAA.P11 ASCII MESSAGES 
666 024502 051440 040524 
042524 051450 006451 


042111 020105 2 6 # WIDE (> 1 1/2 LSB) STATE(S)#<15><12> 
030440 030440 


046040 
052123 
024523 


052123 052101 3 / STATE(S) WIDER THAN 2 LSB/ 
053440 


# STATE-WIDTH(S) OUTSIDE + OR = 1/2 LSB 


eASCIZ <15><12>/END OF LOGIC TESTS / 
: .ASCIZ <200>/PROGRAM DETECTED / 
: .ASCIZ \ MNCAD (A/D)"S = \<15><12> 


ASCII <12><12><12>#+1/2 LSBA<15><12><12><12><12><12><12><12><12><12><12><12><1 


eASCIZ \-1/2LSB\ 
eASCIZ <15><12>/DIFFERENTIAL LINEARITY ON UNIT # / 


-ASCII STATE-WIDTH DISTRIBUTION/<15><12><12><12> 


044124 042040 
022312 051124 052125 
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CVMNAA P11 ASCII MESSAGES SEQ 0079 


006516 
022326 
2318 oS 040 021440 / # OF STATES/<12><12><12><12><12><12><12><12><12><12><12><12><12><12>< 


STATE WIDTH (LSB) /<15> 


eASCIZ /RELATIVE ACCURACY:/<15><12> 
041503 
035131 
020102 eASCIZ / LSB MAXIMUM AT / 
052515 
000040 
047111 eASCII <15><12>/PRINT VALUES--/ 
052514 
eASCIZ / SET CHANNEL IN SWR LOW BYTE/<15><12> 


005015 
peetee ERRTOT: .ASCIZ / ;TOTAL ERROR COUNT = / 


MESGD: .ASCIZ / ;BAD UNITS / 
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CVMNAA.P11 ASCII MESSAGES 


022765 033 015462 005110 C2: eASCIZ <33><62><33><110><12> = ;EXIT GRAPH MODE, HOME AND LINE FEED 


112 000 C3: eASCIZ <112> sASCII *‘I°’ 
015 MOFSET: .ASCIZ <15><12>/OFFSET =/ 

042523 5 
046040 


MLSB: .ASCIZ / LSB / 
MLSBAT: .ASCIZ / LSB AT / 
;CODE TO SETUP BIT MAP VIEWING SCREEN 
BUFFI: .BYTE 3 
TENABLE HISTOGRAM 0 


;CLEAR DATA + ENABLE VERT LINES 
[LOAD VERT LINE CORD 


046040 
020124 


;LOAD STARTING CORD. 
;LOAD GRAPH 1 COMMAND <DATA TO FOLLOW> 
GRAPH ON 


ENABLE GRAPH 0 AND 1 
TENABLE DISPLAY 
[LOAD HORIZ CORDINATES 


;LOAD STARTING GRAPH CORD. 
[LOAD GRAPH 0 <DATA TO FOLLOW> 
GRAPH ON 


;DISABLE SCREEN 
SET _RECTANGEL ASPECT RATIO 


EXIT GRAPH MOD 
: 7,62,105 ; ENSURE, ""ASCII'* <CAUSES HOLD SCREEN ON VT55> 
"ERASE SCREEN" 
HOME" ® 
ERASE SCREEN’* 
ENTER GRAPHIC MODE 


[CLEAR GRAPH DATA 
EXIT GRAPHIC MODE 


INITVT: . 


023105 

023107 
B 

VTINIT: 


9s eee: 
XS ed ed od ed 
NMO—MONO Pw 


023124 


ASCII TEXT MESSAGES 


023127 200 020114 020075 PRIME1: . <200>/L = LOGIC TEST/ 
020103 


<200>/W = WRAPAROUND ANALOG TEST/ 


052040 


020075 . <200>/A = AUTO TEST/ 
052040 


4 124 
023217 200 020116 020075 . <200>/N = NOISE TESTS ON SELECTED CHANNELS/ 








CVMNA~A MNCAD/MNCAM 
CVMNAA P11 


023224 


124 
04 


05 


4124 
1505 


DIAGNOSTIC 
ASCII TEXT MESSAGES 


051511 


020124 


020105 


042507 
020075 


020040 


020105 
052042 
044103 


D7 
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<200>/V 


<200>/P 


<200>/C 


<200>/B 


<200>/G 


<200>/H 


DOT: -BYTE 


15,12 
eASCIZ /TYPE THE 


SEQ 0081 


VIEDO BIT MAP OUTPUT AVAILABLE (IE VT105, VT55)/ 


PRINT CONVERTED ANALOG VALUE LOOP/ 


CALIBRATION LOOP FOR MNCAD/ 


BASE AND VECTOR ADDRESS CHANGES/ 


GET NEW SWITCH REGISTER VALUE/ 


HELP THE OPERATOR AND RETYPE THIS LIST 


"TEST CHARACTER’ THEN DEPRESS ‘RETURN KEY'’ / 





om 
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CVMNAA.P11 ASCII TEXT MESSAGES SEQ 0082 


051101 


STATUS REG. ERROR\ 


FAILED TO INTERRUPT\ 


052522 


042101 : UNEXPECTED INTERRUPT\ 
024504 
050130 
020104 
051122 


020104 3 ERROR ON A/D CHANNEL# 
004451 
020122 


042057 
047116 


EXISTING MNCAD NOW FAIL'S TO RESPOND\ 


DOES NOT EXIST <BUS ERROR> CHECK ADDRESS SWITCHES\ 


052111 042411 : /UNIT ERRPC STREG EXPECTED ACTUAL/ 
041520 020040 
024326 051440 051124 043505 
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CVMNAA P11 


ASCII TEXT MESSAGES 
054105 


DH3: 


052103 


042411 
053411 
051101 


042411 
051411 
000 


024547 


024552 


024650 


SEQ 0083 


STREG CHANNEL NOMINAL TOL. ACTUAL/ 


STREG ACTUAL/ 


WERE ARE/ 


STREG/ 


UNITBD,SERRPC, STREG, SGDDAT, $BDDAT,0 
UNI TBD ,,SERRPC,STREG, CHANL , $GDDAT , SPREAD , $BDDAT ,0 


UNI TBD, SERRPC ,STREG, $BDDAT ,0 
UNI TBD ,SERRPC ,SUNIT, TEMP ,0 
UNI TBD ,SERRPC ,STREG,O 

-BYTE 0,0,0,0,0,0,0,0 





on 
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P11 TTY INPUT ROUTINE SEQ 0084 

os .SBTTL TTY INPUT ROUTINE 

(2) SRR EERE REE EERE EEE ERE RRR ERE REE ER ERR EERE 

(1) -ENABL LSB 

(1) 024652 000000 STKCNT: .WORD 0 7 NUMBER OF ITEMS IN QUEUE 

(1) 024654 000000 $TKQIN: .WORD 0 3; INPUT POINTER 

(1) 024656 000000 $TKQOUT: .WORD 0O ; OUTPUT POINTER 

(1) 024660 000040 $TKQSRT: .BLKB 32. zz TTY KEYBOARD QUEUE 

; 024720 STKQEND=. 

( :*TK INITIALIZE ROUTINE 

( + *THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 

: ; *SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 

(  eCALL: 

( :* JSR PC, S$TKINT 

; i* RETURN 

( 024720 005037 024652 $TKINT: CLR STKCNT :CLEAR COUNT OF ITEMS IN QUEUE 
024724 012737 024660 024654 MOV #$TKQSRT ,STKQIN 3 IMOVE THE STARTING ADDRESS OF THE 
024732 013737 024654 024656 MOV STKQIN, $STKQOUT ;;QUEUE INTO THE INPUT & OUTPUT POINTERS. 
024740 012737 024770 000060 MOV #STKSRV, @ATKVEC : sé INITIALIZE THE KEYBOARD VECTOR 
024746 012737 000200 000062 MOV #200, @ATKVEC+2 * LEVEL 4 
024754 005777 154166 TST a$TkB CLEAR DONE FLA 
024760 012777 000100 154156 MOV #100,a$TKS TENABLE TTY KEYBOARD INTERRUPT 
024766 000207 RTS PC ; RETURN TO CALLER 


3*TK SERVICE ROUTINE 

[*THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT 

[*BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING 

>*1T IN THE QUEUE. 

3*IF THE CHARACTER IS A ‘‘CONTROL~C'' (“C) STKINT IS CALLED AND 

: *UPON RETURN EXIT IS MADE TO THE ‘‘CONTROL~-C'' RESTART ADDRESS (BEG2) 


024770 117746 154152 $TKSRV: MOVB  aSTKB,-(SP) ::PICKUP THE CHARACTER 
024774 042716 177600 BIC #*C177, (SP) :STRIP THE JUNK 
025000 021627 000003 CMP (SP) ,# ‘IS IT A CONTROL C? 
025004 001007 BNE 1$ BRANCH IF NO 

025006 104401 026140 TYPE /SCNTLC +: TYPE A CONTROL-C (*C) 
025012 004737 024720 JSR PC, $TKINT +: INIT THE KEYBOARD 
025016 005726 TST (SP) + *:CLEAN UP STACK 
025020 000137 001564 JMP BEG2 7: CONTROL C RESTART 
025024 021627 000007 1$: CMP (SP) .A7 ::1S IT A CONTROL G? 
025030 001004 BNE + BRANCH IF NO 

025032 022737 000176 001140 CMP ASWREG, SWR *:]S SOFT-SWR SELECTED? 
025040 001500 BEQ 6$ *:GO TO SWR CHANGE 
025042 2$: 

025042 022737 000040 024652 CMP #32. ,STKCNT iis THE QUEUE FULL? 
025050 001004 BNE 3$ CH IF NO 

025052 104401 026134 TYPE ,$BELL ‘RING THE TTY BELL 
025056 005726 TST (SP) + : CLEAN CHARACTER OFF OF STACK 


ee ek ek kk ee kk ek ee ek ke ek ek ed ed a ed kd od 8 a 2 ot ot ot 
ee ee eee ee ele lel ee lee ee fe ee ee YB YY ew we 


Fat ae ee a a i i tet te i ht at St a at a a, a a ed ae a a a a el 


0004 BR 5$ sEXIT 
025062 021627 000023 3$: CMP (SP) ,#23 ::1S IT A CONTROL-S? 


an 
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CVMNAA P11 TTY INPUT ROUTINE C' 


2 ;;BRANCH IF NO 
154050 +: DISABLE TTY oF stack INTERRUPTS 
TS 77 CLEAN pe OFF STACK 
1549042 : + sWAIT FOR A CHAR 
BP 3 : LOOP UNTIL ITS THERE 
154036 CHARACTER 


177600 
000021 | dae +421 


3 33 (CH IF NO 
000100 154014 #100,a$TKS : sREENABLE TTY KEYBOARD INTERRUPTS 


024652 : $TKCNT *:COUNT THIS CHARACTER 
000140 (SP) ,#140 :i1S IT UPPER CASE? 


BRANCH IF YES 
(SP) #175 3315 IT A SPECIAL CHAR? 
4$ CH_IF YES 


#40, (SP) MAKE IT UPPER CASE 

(SP) +, a$TKQIN 3 TAND PUT IT IN QUEUE 

STKQIN ;UPDATE THE POINTER 
024654 024720 STKQIN, M#STKQEND £260 OFF THE — 


CH IF 
024660 024654 WSTKQSRT ,STKQIN ; F SRESET THE PO! NTER 
5$: ; sRETURN 


FERRARA REAR KAKKEREEREREKREKEEREEEEKEREEKEKEEREEEREKEEKEKEKEKEEEKEEKEKEKEEK 
«SOF TWARE SWITCH REGISTER CHANGE ROUTINE. 
t*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 
:*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP 
>*CALL WHEN OPERATING IN TTY INTERRUPT MODE. 
022737 000176 $CKSWR: CMP ASWREG, SWR 31S THE SOFT-SWR SELECTED 
001124 BN 15$ *:EXIT IF NOT 
153722 a$Tks +:1S A CHAR WAITING? 
BP 15$ 331F NOT, EXIT 
153716 a$TKB,-(SP) YE 
177600 #°C177, (SP) *:MAKE IT 7-BIT ASCII 
000007 (SP) #7 ::1S IT A CONTROL-G? 
025240 001300 2$ 3c1F NOT. PUT IT IN THE TTY QUEUE 


DIBA IAAI IDI IOIDIIOISIOISIIIDIX IOI IOI IOI IOIIOIUIIOIIOIIIOITIOI IOI TO TOR TTT TATA IASI 
: KCONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY rene’ SERVICE 
;*ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL, AS A RESULT OF A 
>*CONTROL-G BEING TYPED, AND THE SOFTWARE SWITCH REGISTER BEING SELECTED. 
025242 123727 001134 6$: CMPB SAUTOB, #1 2 GARE WE a Ty IN AUTO-MODE? 
001674 2$ : BRANCH IF Y 
(SP)+ CLEAR CONTROL~G OFF STACK 
024720 PC ,$TKINT 3 FLUSH THE TTY INPUT QUEUE 
153660 a$TKS :DISABLE TTY KEYBOARD INTERRUPTS 
000001 001135 MOVB #1,$INTAG 7:SET INTERRUPT MODE INDICATOR 


026152 T -SCNTLG 3;ECHO THE CONTROL-G (*G) 
026157 : , SMSWR 7: TYPE CURRENT CONTENTS 
000176 MO SWREG,~(SP) 7sSAVE SWREG FOR TYPEOUT 
3:GO TYPE--OCTAL ASCII(ALL DIGITS) 


RO fy at st nt nt nt nk st td es a a Y) 9 2 2 2 9 8 2 2 9 2 —) SF 2 9 2 oo oh 
ee Ne ee eee eee le eee eee eee ee eee ee ee ee ee a a ae a fe fe fe ee ee a a a 


( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
< 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 








i. 
DIAGNOSTIC MACY11 27(654) 19-SEP-78 08:51 PAGE 42-2 ¢ 
Y INPUT ROUTINE ci 


025310 104401 026170 , SMNEW ;zPROMPT FOR NEW SWR 
005046 19$: -(SP) 
005046 CL -(SP) 
105777 153620 7$: a$TKS 23 
100375 BP 7$ zi 1F NOT TRY. AGAIN 


a$TKB,-(SP) 73P1CK UP CHAR 


CVMNA~A sala 
CVMNAA.P11 


025326 117746 153614 
2716 


025332 


025364 
025372 
025376 


025414 


025416 


177600 
000003 
026140 
000006 
001135 
000100 
001564 
000025 
026145 
000006 


000015 
000004 


#*C177, (SP) 
(SP) #3 
/SCNTLC 
#6,SP 
$SINTAG,#1 
8$ 

#100, a$TKS 
BEG2 

(SP) #25 
10$ 


-$SCNTLU 


(SP) ,415 
16$ 


337MAKE IT 7-BIT ASCII 
225 IT A _CONTROL-C? 
CH NOT 


oe IF 

3zYES, ECHO CONTROL-C (*C) 

3;CLEAN UP STACK 

fhe emg TTY KEYBOARD INTERRUPTS? 


oe H IF NO 
;;ALLOW TTY KEYBOARD INTERRUPTS 
3=CONTROL-C RESTART 


2iIS IT ‘, ws 

2c YES. ECHO CONTROL -U (*U) 
; IGNORE PREVIOUS INPUT 

T:LET'S TRY IT AGAIN 


3:18 IT A <CR>? 
; BRANCH IF NO 


4(SP) szYES, IS IT THE FIRST CHAR? 
11$ 33 CH IF YES 

000002 153500 2(SP) ,aSWR 

000006 6,SP 

001165 .$CRLF 

001135 000001 Ta 


000100 153456 #100,a$TKS 


15$: 
027622 6$: PC,$TYPEC 
000060 (SP) ,460 


F YES 
000067 (SP) ,#67 
18$ 


YES 
000060 #60, (SP)+ ;sSTRIP-OFF ASCII 
000002 2(SP) iI THIS THE FIRST CHAR 
17 33 CH IF YES 
33NO, SHIFT PRESENT 
ee CHAR OVER TO MAKE 
ROOM FOR NEW ONE. 
000002 17$: 2(SP) : KEEP COUNT OF CHAR 
177776 ot - ali et 


001164 18$: $QUES <= TYPE ?<CR><LF> 
025546 BR 30$ *:SIMULATE CONTROL-U 
.DSABL LSB 


e 


ro KBD INTERRUPTS? 
TTY KBD INTERRUPTS 
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mee ee me ek ee me me me ee me el eh em ee ee ek eh ed ed ed ad ad od od 
ee Ne a a ee a ae eee ae ee ee ae ee ee ee ee ee ae ee ee eee ee le ee le es ee ee ee See See eee 
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RARE REE RRR EKER EEREEREEEEEEEREKEE 


;*THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


*CALL: 
RDCHR 22GET A CHARACTER FROM THE QUEUE 
RETURN HERE CHARACTER IS ON THE STACK 
7:WITH PARITY BIT STRIPPED OFF 


025550 : (SP) ,=(SP) ;3PUSH DOWN THE PC AND 
6666 000004 MOV 4(SP) ,2(SP) 73 THE PS 
000004 4(SP) a READY FOR A CHARACTER 
-(SP) T NEW PS ON STACK 
025574 #64$ ,-(SP) :EPuT NEW PC ON STACK 
33POP NEW PC AND PS 


024652 1$: STKCNT ::WAIT ON A CHARACTER 


024652 STKCNT ;DECREMENT THE COUNTER 
177044 000004 @$TKQOUT ,4 (SP) IGET ONE CHARACTER 

024656 $TKQOUT UPDATE THE POINTER 

024656 024720 $TKQOUT ,#STKQEND igbiD dt a OF THE END? 


2 I 
024660 024656 - MOV #STKQSRT ,$TKQOUT i gRESET THE POINTER 


SLE ERE EERE EERE EERE REE EERE EERE EERE EERE 


2 *THIS  aaiities WILL INPUT A STRING FROM THE TTY 


RDLIN 33 INPUT A STRING FROM THE TTY 
RETURN HERE ;zADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
3; TERMINATOR WILL BE A BYTE OF ALL O'S 


= PORN) 3 a SS 


R3,~-(SP) sSAVE R3 

-(SP) ;;CLEAR THE RUBOUT KEY 
026074 : #$TTYIN,R3 ; RESS 
026134 : th haat R3 


YES 
3:GO READ ONE CHARACTER FROM THE TTY 
VB (SP)+, (R3) 3;GET CHARACTER 
000177 : le (R3) 21S IT A_RUBOUT 


::BR IF NO 
> Pe pee THE FIRST RUBOUT? 


6 ee 
000134 026072 MOVB = #"\,9$ :: TYPE A BACK SLASH 
177777 MO #-1, (SP) ::SET THE RUBOUT KEY 
: R3 ; BACKUP BY ONE 
026074 R3,ASTTYIN i: STACK EMPTY? 


4 ;BR YES 
026072 (R3) ,9$ i: SETUP TO TYPEOUT THE DELETED CHAR. 
026072 .9$ ::GO TYPE 
BR e$ 3:GO READ ANOTHER CHAR, 
(SP) ;;RUBOUT KEY SET? 


a ee ee ee wwe Eee ee ee a ee ee te te tt et et et et ee 
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7$ ;;BR IF NO 
000134 026072 MOVB #'\,9$ 7 TYPE A BACK SLASH 
026072 


(SP) £2 CLEAR THE RUBOUT KEY 
000025 : #25, (R3) 31S CHARACTER A CTRL U? 


BNE NO 
026145 a -SCNTLU i ; TYPE A CONTROL ‘U"* 
000022 : eee -(R3) 


ee IF NO 
(R3) 73CLEAR THE CHARACTER 
001165 SCRLF [TYPE ACR’ & ‘LF’ 
026074 $TTYIN +: TYPE THE INPUT STRING 
3$ £360, PICKUP ANOTHER CHACTER 


BR 
001164 : .SQUES 

BR 1$ ‘CLEAR THE BUFFER AND LOOP 
026072 $ MOVB . (R3),9$ STECHO THE CHARACTER 


026072 9 
000015 #15, (R3)+ + CHECK FOR RETURN 
2s OOP IF NOT RETURN 
177777 -1(R3) TICLEAR RETURN (THE 15) 
001166 ,SLF 23 TYPE A_LINE FEED 
(SP)+ ;CLEAN RUBOUT KEY FROM THE STACK 
(SP)+,R3 TIRESTORE R3 
(SP) ,-(SP) 2 ¢ADJUST THE STACK AND PUT ADDRESS OF THE 
000004 00000 4(SP) ,2(SP) 33 FIRST ASCII CHARACTER ON IT 
026074 #$TTYIN,4(SP) 


;RETURN 
9$: 0 £7 STORAGE FOR ASCII CHAR. TO TYPE 
0 NATOR 


RMI 
$TTYIN: .BLKB 32. + :RESERVE 32. BYTES FOR TTY INPUT 
$BELL: <207><377><377> :: L 
000 $CNTLC: .ASC /*C/<15><12> : 
000012 $CNTLU: /*U/<15><12> i ;CONTROL ' 
000 S$CNTLG: /*G/<15><12> ; CONTROL Be 
051127 S$MSWR: <15><12>/SWR = 


020127 SMNEW: .ASCIZ / NEW = / 
026202 - EVEN 


ee a a a a a ttt et ee 
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CVMNAA P11 READ AN OCTAL NUMBER FROM THE TTY 


.SBTTL READ AN OCTAL NUMBER FROM THE TTY 


3 WWI Ss 2 WWII a os 
Ne Se eee 
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FARRAR RARER EERE ERE REE RARER ERE REE ERE RRR RRR R EERE EEE 


SRTHIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 


[*CHANGE IT TO BINARY. 
;*CALL: 


RDOCT 
RETURN HERE 


(SP) ,~(SP) 
4(SP) ,2(SP) 
RO,-(SP) 
R1,~(SP) 
R2,-(SP) 


(SP)+,RO 
R1 


R2 
(RO) +,=(SP) 
3$ 


R2 

#*C7, (SP) 
(SP)+,R1 
2s 


(SP) + 
R1,12(SP) 
R2,$HIOCT 
(SP)+,R2 
(SP)+,R1 
(SP)+,RO 


RTI 
$HIOCT: .WORD 0 


;;READ AN OCTAL NUMBER 

3;LOW ORDER BITS ARE ON TOP OF THE STACK 
iHIGH ORDER BITS ARE IN SHIOCT 

eetur te SPACE FOR THE 


T NUMBER 
3:PUSH RO ON STACK 


AD ASCIZ LINE 
SIGET ADDRESS OF 1ST CHARACTER 
7zCLEAR DATA WORD 


33PICKUP THIS CHARACTER 
z31F ZERO GET OUT 


:zSTRIP THE ASCII JUNK 
2 ¢ADD IN THIS DIGIT 


; LOOP 
;CLEAN TERMINATOR FROM STACK 
 ESAVE THE RESULT 


3:POP STACK INTO R2 
3zPOP STACK INTO R1 
+ sPOP STACK INTO RO 


URN 
ZZHIGH ORDER BITS GO HERE 





PPPS SSVSPSSPSSPSSPSPSPLPLPLSLPL]S\ PL}EH\HKPHPeKeeeeeeeeeeeeeeeseee 
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-SBTTL SCOPE HANDLER ROUTINE 


{REAR RARER RETREAT ee 
tRTHIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
7*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
[*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 
3 *THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

SW14=1 LOOP ON TEST 

INHIBIT ITERATIONS 
LOOP ON ER 
LOOP ON TEST IN SWR<7:0> 


SCOPE 3; SCOPE=I0T 


CKSWR zsTEST FOR CHANGE IN SOFT-SWR 
026306 152624 : BIT #B1T14,aSWR ; sLOOP ON PRESENT TEST? 
026314 BNE SOVER sYES IF SW14=1 
;AMAHASTART OF CODE FOR THE XOR TEST ERMMAAA 
026316 $XTSTR: BR 6$ 3 1F RUNNING ON THE a. TESTER CHANGE 
THIS INSTRUCTION TO A _‘NOP"' (NOP=240) 
@VERRVEC,-(SP) ;;SAVE THE ea OF THE ERROR VECTOR 
#5$ ,AAERRVEC + 3SET FOR TIMEOU 
a#177060 TIME OUT ON XOR? 
(SP) +, @#ERRVEC ; 3RESTORE THE ote VECTOR 
BR SSVLAD TO THE NEXT TEST 
5$: (SP)+, (SP)+ 7:CLEAR THE STACK AFTER A TIME OUT 
(SP) +, @#ERRVEC ¢ ¢RESTORE THE ERROR VECTOR 
7$ LOOP ON THE PRESENT TEST 
3 cart + A by XOR’ TESTERMMHAM 
000400 152556 BIT oy 1T08,a fa ON SPEC. TEST? 


152550 001102 QSuR. STSTNM :30N THE RIGHT TEST? — SWR<7:0> 
001103 : s SERFLG :2HAS AN ERROR OCCURRED? 
001115 001103 SERMAX, SERFLG :IRAK.” ERRORS FOR THIS TEST OCCURRED? 


001000 152520 #81709, SUR ::LOOP ON. ERROR? 
001110 001106 : A act SSET LOOP ADDRESS TO LAST SCOPE 


BR 

001103 : SERFLG 2 ZERO THE ERROR FLAG 

001160 STIMES ;CLEAR THE NUMBER OF ITERATIONS TO MAKE 
BR 1$ 2 sESCAPE TO THE NEXT TEST 

004000 : os #81T11,aSWR i ; INHIBI a caaalemals 


001176 $PASS HIF FIRST PASS OF PROGRAM 
1$ INHIBIT ITERATIONS 
001104 $ICNT i INCREMENT ITERATION COUNT 
001160 001104 STIMES,SICNT OER THE NUMBER OF ITERATIONS MADE 
SOVER BR _IF MORE ITERATION REQUIRED 
000001 001104 : #1,$1CNT : RE INITIALIZE THE ITERATION COUNTER 
013737 026562 001160 SMXCNT ,STIMES SET NUMBER OF ITERATIONS TO DO - 
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CVMNAA.P11 SCOPE HANDLER ROUTINE SEQ 0091 
(1) 12 105237 001102 $SVLAD: INCB $TSTNM COUNT TEST NUMBERS 
(1) 026516 113737 001102 001174 MOVE  $TSTNM,STESTN tISET TEST NUMBER iN APT MAILBOX 
(1) 026524 011637 001106 MOV (SP) ,$LPADR ::SAVE SCOPE LOOP ADDRESS 
(1) 530 011637 001110 MOV (SP) ,SLPERR :SAVE ERROR LOOP ADDRESS 
qd) 037 001162 CLR SESCAPE : CLEAR THE ESCAPE FROM ERROR ADDRESS 
(1) 026540 112737 000001 001115 MOVB #1,$ERMAX SONLY ALLOW ONE(1) ERROR ON NEXT TEST 
(1) 026546 013777 001102 152366 SOVER: MOV $TSTNM, aDISPLAY i DISPLAY TEST NUMBER 
(1) 026554 013716 001106 MOV $SLPADR, (SP) ::FUDGE RETURN ADDRESS 
(1) 026560 000002 RTI 3FIXES PS 
(1) 026562 003720 $MXCNT: 2000. ::MAX. NUMBER OF ITERATIONS 
2407 026564 053737 001512 001510 WHICHV: BIS MASKNM,BADUNT :SET CURRENT UNIT INTO BAD FIELD 
2408 026572 013737 001512 026622 WHICHU: MOV MASKNM, 11$ :GET CURRENT UNIT 
2409 026600 012737 000000 001514 MOV #0,UNI TBD ‘PRIME THE VALUE 
2410 026606 006237 026622 10$: ASR 11$ * CONVERT 
2411 026612 001404 BEQ 12$ :BR WHEN DONE 
2412 026614 005237 001514 INC UNI TBD =BUMP POINTER 
2413 026620 000772 BR 10$ 
2414 026622 000000 11$: 0 
2415 026624 000207 12$: RTS PC ZEXIT 
2419 .SBTTL ERROR HANDLER ROUTINE 
(2) [RRR AERERREEEEEREREREEREEREREREREEERERAEREKEREREREEEREKEKKEK 
(1) *STHIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
(1) ‘*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
(1) :*AND GO TO SERRTYP ON ERROR 
(1) :*THE SWITCH OPT 1 ONS PROVIDED BY THIS ROUTINE ARE: 
(1) + *SW15=1 T ON ERROR 
(1) = *SW13=1 iNilely ERROR TYPEOUTS 
(1) + *SWO9=1 LOOP ON ERROR 
(1) >*CALL 
a , 7* ERROR N :ERROR=EMT AND N=ERROR ITEM NUMBER 
(1) 026626 SERROR: 
(1) 026626 104410 CKSWR ::TEST FOR CHANGE IN SOFT-SWR 
(3) 026630 004737 026564 JSR PC ,WHICHV s INDICATE BAD UNIT 
(1) 026634 105237 001103 7$: INCB = SERFLG 33 SET TH HE ERROR FLAG 
(1) 026640 001775 BEQ 7$ :DON'T LET THE FLAG GO TO ZERO 
(1) 026642 013777 001102 152272 MOV $TSTNM, aDISPLAY : DISPLAY TEST NUMBER AND ERROR FLAG 
(1) 026650 005237 001112 INC SERTTL NC THE ERROR COUN 
(1) 026654 011637 001116 MOV (SP) , S$ERRPC SIGET ADDRESS OF OEROR INSTRUCTION 
(1) 026660 162737 000002 001116 SUB #2, $ERRPC 
(1) 026666 117737 152224 001114 MOVB  a@$ERRPC,$ITEMB ;;STRIP AND SAVE THE ERROR ITEM CODE 
(1) 026674 032777 020000 152236 BIT #B1T13,aSWR :SKIP TYPEOUT IF SET 
(1) 026702 001004 BNE 20$ :SKIP TYPEOUTS 
(1) 026704 004737 027016 JSR PC, SERRTYP *:GO TO USER ERROR ROUTINE 
(1) 026710 104401 001165 TYPE »SCRLF 
(1) 026714 20$: 
(1) 026714 122737 000001 001210 CMPB = WAPTENV,SENV =; ; RUNNING IN APT MODE 
(1) 026722 001007 BNE 2$ :NO, SKIP APT ERROR REPORT 
(1) 026724 113737 001114 026736 MOVB $1TEMB. 218 SET ITEM NUMBER AS ERROR NUMBER 
(1) 026732 004737 030134 JSR PC, $ATY REPORT FATAL ERROR TO APT 
(1) 026736 000 21$: .BYTE 0 
(1) 026737 000 .BYTE 0 
(1) 026740 000777 228: BR 228 :zAPT ERROR LOOP 
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CVMNAA.P11 ERROR HANDLER ROUTINE SEQ 0092 
(1) 026742 005777 152172 2s: TST aSwR HALT ON ERROR { 
(1) 026746 100002 BPL 3$ 3 SKIP IF CONT INUE ( 
(1) 026750 000000 HALT T ON ERROR! t 
(1) 026752 104410 CKSWR ::TEST FOR CHANGE IN SOF T-SwWR { 
(1) 026754 032777 001000 152156 3S: BIT #B1T09,aSwR ; LOOP ON ERROR SWITCH SET? t 
(1) 026762 001402 BEQ IF t 
(1) 026764 013716 001110 MOV SLPERR, (SP) FUDGE RETURN FOR LOOPING ( 
(1) 026770 005737 001162 4$: TST $ESCAPE # CHECK FOR AN ESCAPE ADDRESS ( 
(1) 026774 001402 BEQ 5$ 7:BR IF NONE ( 
a 026776 013716 001162 * MOV SESCAPE,(SP) | ::FUDGE RETURN ADDRESS FOR ESCAPE 
(1) 027002 022737 016500 000042 CMP HSENDAD , a#42 pACT=11 AUTO-ACCEPT? ( 
(1) 027010 001001 BNE 6$ S:BRANCH IF NO { 
(1) 027012 000000 HALT 7: YES { 
(1) 027014 6$: { 
(1) 027014 000002 RTI ; RETURN { 
2420 .SBTTL ERROR MESSAGE TYPEOUT ROUTINE 
(2) [ARR ERERREREEEEEREEEEREREREE EERE ERE EERE EERE EERE ER | 
(i) SRTHIS ROUTINE USES THE "ITEM CONTROL BYTE’ ($ITEMB) TO DETERMINE WHICH | 
(1) S*ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE ‘ERROR TABLE'’ (SERRTB), | 
(1 :*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. | 
(1) 027016 SERRTYP: | 
(1) 027016 104401 001165 TYPE  , $CRLF ;s'CARRIAGE RETURN'' & “LINE FEED" | 
(1) 027022 010046 MOV RO, -(SP) TISAVE RO | 
(1) 027024 005000 CLR RO T:PICKUP THE ITEM INDEX | 
(1) 027026 153700 001114 BISB  a#SITEMB,RO | 
(1) 027032 001004 BNE 1$ :z1F ITEM NUMBER IS ZERO, JUST | 
(1) [TYPE THE PC OF THE ERROR | 
(2) 027034 013746 001116 MOV SERRPC,-(SP)  :: SAVE SERRPC FOR TYPEOUT | 
(2) : SERROR ADDRESS | 
(2) 027040 104402 TYPOC ;3GO_TYPE--OCTAL ASCII(ALL DIGITS) 
<1) 027042 00044 10$ T OUT 
(1) 027044 005300 1$: DEC RO :TADJUST THE INDEX SO THAT IT WILL 
(1) 027046 006300 ASL RO 33 WORK FOR THE ERROR TABLE 
(1) 027050 006300 ASL RO 
(1) 027052 006300 ASL RO 
(1) 027054 062700 001252 ADD #SERRTB,RO ;:FORM TABLE POINTER 
(1) 027060 012037 027070 MOV (RO)+,2$ SIPICKUP "ERROR MESSAGE’ POINTER 
(1) 027064 001404 BEQ 3$ ::SKIP TYPEOUT IF NO POINTER 
(1) 027066 104401 TYPE Zi TYPE THE "ERROR MESSAGE"* 
(1) 027070 000000 2s: .WORD 0 :"ERROR MESSAGE’ POINTER GOES HERE 
(1) 027072 104401 001165 TYPE , $CRLF 37''CARRIAGE RETURN’ ' NE FEED’ 
(1) 027076 012037 027106 3$: MOV (RO)+,4$ >:PICKUP ‘DATA HEADER'' POINTER 
(1) 027102 001404 BEQ 5$ :SKIP TYPEOUT IF 0 
(1) 027104 104401 TYPE ::TYPE THE ‘DATA HEADER'' 
(1) 027106 000000 4$: .WORD 0 73" DATA HEADER’ POINTER GOES HERE 
(1) 027110 104401 001165 TYPE =, $CRLF Z'CARRIAGE RETURN’ & ‘LINE FEED’ 
(1) 027114 010146 5$: MOV R1,-(SP) TISAVE R1 
(1) 027116 012001 MOV (RO)+,R1 : :BICKUP ‘DATA TABLE”’ POINTER 
(1) 027120 001415 BEQ 9$ :BR IF NO DATA TO BE TYPED 
(1) 027122 012000 MOV (RO) +,RO ; PICKUP, "DATA FORMAT'' POINTER 
(1) 027124 105720 6$: TSTB = (RO) + IOCTAL'' OR "DECIMAL 
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027126 
0271 


027152 
027154 


027242 


027244 


027326 


DIAGNOS 


TIC 
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ERROR MESSAGE TYPEOUT ROUTINE 


001003 
013146 
104402 
000402 


013146 


020040 
027172 


012737 


027166 


027336 
000340 


151712 
027342 
027244 


027336 


027342 
151644 


027172 
000340 


000024 
000026 


7$ 7;BR IF DECIMAL 
@(R1)+,=(SP) ;SAVE a(R1)+ FOR TYPEOUT 
8$ :i¢0 TYPE=-OCTAL ASCII(ALL DIGITS) 


a(R1)+,-(SP) 7 SAVE a(R1)+ FOR TYPEOUT 
2260 TYPE=-DECIMAL ASCII WITH SIGN 
(R1) 31S THERE ANOTHER NUMBER? 
9$ > BR IF NO 
11$ sz TYPE TWO(2) SPACES 
6$ 33 
9$: (SP)+,R1 : RESTORE R1 


108: (SP)+,RO 7¢RESTORE RO 
led 3 nae RETURN'' & ‘LINE FEED" 


RTS p 
11$: ASCIZ / 7 <i TwO(2) SPACES 
.SBTTL POWER DOWN AND UP ROUTINES 


FRO II IOI IOI IOI IOI IOI IOI RIO IIT AIO IOI IAI IAI SSASSASSASSSSSSSS SSS 
3;POWER DOWN ROUTINE 
2 ASILLUP ,@APWRVEC ;;SET FOR FAST UP 

#340, aAPWRVEC+2 ; sPRIO:7 

) ; H RO ON STACK 


@SWR ON STACK 
:;SAVE SP 
ASPWRUP ,AAPWRVEC ;;SET UP VECTOR 
72 3 HANG UP 
JIE EIR KK EERE EEE EEE EEE EER EERE EEE EEE EK 
“POWER UP ROUTINE 
$PWRUP : MOV or es ia. ay FAST DOWN 


7 sWAIT Toop FOR THE TTY 
1$: zsWAIT FOR THE INC 
1$ 33 WORD 


3zPOP_STACK INTO RO 
SPWRDN , @#PWRVEC” iZSET UP THE POWER DOWN VECTOR 
#340, aAPWRVEC+2 ; 0:7 

‘REPORT THE POWER FAILURE 
PWRMSG 3;POWER FAIL MESSAGE POINTER 


ee ee 
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012716 (PC) +, (SP) ;sRESTART AT BEGIN 
. WOR BEGIN 3 ;RESTART ADDRESS 


3; THE POWER UP SEQUENCE WAS STARTED 
oe 3; BEFORE THE POWER DOWN WAS COMPLETE 
$ : 0 3;PUT THE SP HERE 
orate 040524 : <200>/RESTARTING AFTER A POWER FAILURE / 


040506 
027402 051125 020105 


( 
( 
' 
N 
N 
N 
N 
f 
i) 
N 
f 
] 
f 
f 
fn 
f 
f 
fh 
fA 
f 
A 
A 
f 
¢ 
C 
( 
( 
( 
( 
( 
( 
( 
i 
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DIAGNOSTIC 
VMNAA.P11 TYPE ROUTINE 


on TY 


-SBTTL TYPE ROUTINE 


BASES OIIIDISIIISISIIIISIOI I OIIOIICIUIOIOIOITIOIOITITIOITIOI TOOT OTT TTT TTT TIE 

“ RROUT INE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 

3*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
*NOTE1: $NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
*NOTE2: $FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
 *NOTE3: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 


*CALL: 
#1) USING A TRAP INSTRUCTION 
TYPE -MESADR 3:MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


TYPE 


AMMA MAiPWTMYD YM HMM Ms 


:z1S THERE A TERMINAL? 
77BR IF YES 
2 HALT HERE IF NO TERMINAL 
3$ 2s VE 
RO,-(SP) 7 SAVE RO 
a2(SP), RO 33GET ADDRESS A ASCIZ STRING 
001210 HAPTENV, SENV ; ZRUNNING IN APT MODE 
E 62$ zNO,GO CHECK FOR APT CONSOLE 
000100 001211 #APTSPOOL , SENVM +: SPOOL MESSAGE TO APT 
62$ :zNO,GO CHECK FOR CONSOLE 
027460 RO,61$ 3; SETUP MESSAGE ADDRESS FOR APT 
030124 J PC,SATY3 + ¢ SPOOL MESSAGE TO APT 
: D sMESSAGE ADDRESS 
000040 001211 #APTCSUP,SENVM SZAPT CONSOLE oe 
$ hai SKIP TYPE OU 
(RO) +,-(SP) ;PUSH CHARACTER 1 BE TYPED ONTO STACK 
4$ +: BR IF IT ISN'T THE TERMINATOR 


027410 105737 : STPFLG 
100002 BP 1$ 


: 
1 
- 
“ 
: 
: 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
; 
1 
j 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


ee Nee ee ee eee eee eee ele ele ae ae te ee ee ee ee ee MSY Sw www 


( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
C 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 


027666 


027622 
001156 


001154 
000001 


(SP) + 

(SP) +,RO 
#2, (SP) 
MHT, (SP) 
8$ 
ACRLF , (SP) 
5$ 


(SP) + 


SCHARCNT 
2s 


PC ,$TYPEC 
$FILLC,(SP)+ 


2s 
$NULL ,~ (SP) 


1(SP) 
6$ 


THIF TERMINATOR POP IT OFF THE STACK 
2 ¢REST ORE RO 
7; ;ADJUST RETURN PC 


; RETURN 
+ BRANCH IF <HT> 
; ;BRANCH IF NOT <CRLF> 


3zPOP_ <CR><LF> EQUIV 
i: TYPE A CR AND LF 


;CLEAR CHARACTER a 


a38 IT TIME FOR FILLER CHARS.? 
F NO GO GET NEXT CHAR 
le & Bs, fr oe CHARS. NEEDED 
; :DOES A NULL ‘NEED TO BE TYPED? 
;;BR IF NO--GO POP THE NULL OFF OF STACK 
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CVMNAA.P11 TYPE ROUTINE 

027564 004737 027622 JSR PC, S$TYPEC 3;G0 TYPE A NULL 

027570 105337 027666 DECB SCHARCHIT ;;DO NOT COUNT AS A COUNT 
027574 000770 BR 7$ ; LOOP 


;HORIZONTAL TAB PROCESSOR 


an te tan tae an ate te, a ae ee, i a, a a, a a a a i a a 
ee Ne eee eee ee a ee a ee lS ae ee a 


151322 


000002 
000015 


027666 
000012 


020200 
000020 


000055 


030106 
000040 


030076 


027666 


151314 
000002 


000002 


000001 


8$: 
9$: 


BR 
$TYPEC: 


1$: 


INCB 
SCHARCNT : . WORD 


STYPEX: RTS 


#" ,(SP) 
PC, $TYPEC 
#7, $CHARCNT 
9$ 

(SP) + 

2$ 

a$TPS 
STYPEC 
2(SP) ,a$TPB 
#CR,2(SP) 
1$ 
SCHARCNT 
STYPEX 

ALF ,2¢SP) 
STYPEX 
(PC)+ 


0 
PC 


;sREPLACE TAB WITH SPACE 
33 PACE 


;;TAB STOP 

7:POP SPACE OFF STACK 

3;GET NEXT CHARACTER 

3zWAIT UNTIL PRINTER IS READY 


3;LOAD CHAR TO BE TYPED INTO DATA REG. 
eis CHARACTER A CARRIAGE RETURN? 


BRANCH IF NO 
::YES--CLEAR CHARACTER COUNT 


its CHARACTER A LINE FEED? 
; BRANCH _IF YES 

3=;COUNT THE CHARACTER 
3;CHARACTER COUNT STORAGE 


-SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


SIRE ERE ERE EEE EKER ERE EEE EEE ERE ERE EER ERE EERE REE EEK 


SRTHIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 
3*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 


> *NUMBER IS 


POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN 


WILL BE TYPED 


;*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
: #REPLACED WITH SPACES. 


$TYPDS: 


NUM ,~(SP) 


RO,-(SP) 


5,7(SP) 
#20200 ,-(SP) 
ian 


R5 
#'-,1(SP) 


R 
#$DBLK ,R3 
#* ,(R3)+ 


R2 
$DTBL(RO),R1 
R1,R5 


7zPUT THE BINARY NUMBER ON THE STACK 
3:G0 TO THE ROUTINE 


: PUSH RO ON STACK 


PUSH RS ON STACK 
ISET BLANK ay oy AND SIGN 
T NUMBER 


ZERO THE CONSTANTS INDEX 
SETUP THE OUTPUT POINTER 
7:SET THE FIRST CHARACTER TO A BLANK 
33 D NUMBER 


ONS 
TPORM THIS BCD DIGIT 








Poe oe or OP Oe Oe Oe OP ee Oe eee Oe, ee 
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027750 ::BR_IF DONE 
ZEINCREASE THE BCD DIGIT BY 1 


+ ¢ADD BACK THE CONSTANT 
CHECK IF BCD DIGIT=0 

T:FALL THROUGH IF 0 

seat ets + LEADING 0°S? 


6$ ;3BR IF NO 
177777 e TIYES=-SET THE SIGN 

#'0,R2 7sMAKE THE BCD DIGIT ASCII 
3zMAKE IT A SPACE IF NOT ALREADY A DIGIT 
;3PUT THIS CHARACTER IN THE OUTPUT BUFFER 
3¢JUST INCREMENT ING 
3;CHECK THE TABLE INDEX 
3:GO DO THE NEXT DIGIT 
+260 TO EXIT 

GET THE LSD 
£260 CHANGE TO ASCII 
WAS iy * LSD THE FIRST NON-ZERO? 


BP 9$ BR IF 
177777 | 177776 . :FYES~-seT THE SIGN FOR TYPING 
(R3) TERMINATOR 


Pn tt ae tt ae a te tt Ee ae fae te te a et a i a 
ee a eee ee ee ee ee ee ee te ae ae ae 


; :POP 

3 sPOP 

+ sPOP 

MOV : sPOP STACK _INTO RO 
030106 , SDBLK NOW TYPE THE NUMBER 
000002 000004 2(SP) ,4(SP) TZADJUST THE STACK 
(SP) +, (SP) 
; RETURN TO USER 
$DTBL: 


10. 
$DBLK: .BLKW 4 
-SBTTL APT COMMUNICATIONS ROUTINE 


DIARIES SIO ISTO ICICI IOI IOI TOTO TTT A TTT AAI IAAIASISAISSS SSS 
112737 000001 030362 2 VB #1,$FFLG 3:TO REPORT FATAL ERROR 
112737 000001 030360 : #1,$MFLG 3:TO TYPE A MESSAGE 


000403 SATYC 
112737 000001 030362 : #1,$FFLG 3;TO ONLY REPORT FATAL ERROR 
RO,-(SP) 33PUSH RO ON STACK 
MOV R1,~-(SP) 3;PUSH R1_ON STACK 
030360 S$MFLG 4 es TYPE A MESSAGE? 
5$ 31F NOT: BR 
000001 001210 - hicaademae i SOPERAT ING UNDER APT? 


NO 
000100 001211 #APTSPOOL , SENVM 3 s SHOULD SPOOL MESSAGES? 
3$ ;1F NOT: BR 


NM 


aR RR RRA R ARR RAAB RAR AR AAA 
oe et et os = WI) AD) a ND SP PP? PO OS OO 


ee ed © de ee ee 
ek ed ed eet ed FA LA LALALALALNINIALNAMNNMNANAMNMNMNMNMNANAMNMNNNMNAYMNYNYOY 
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CVMNAA.P11 APT COMMUNICATIONS ROUTINE 


000004 a4 (SP) ,RO 33GET MESSAGE ADDR. 
000002 000004 ; ;BUMP RETURN ADDR. 
001170 : - :2S6E IF DONE W/ LAST XMISSION? 


WA 
001204 MOV R ;;PUT ADDR IN MAILBOX 
::FIND END OF MESSAGE 


2$ 
001204 . +3 SUB START OF MESSAGE 

RO GET MESSAGE LNGTH IN WORDS 
001206 RO, $MSGLGT : PUT LENGTH IN MAILBOX 
000004 001170 oe 7sTELL APT TO TAKE MSG. 


030272 3$: a4 (SP) .4$ ::PUT MSG ADDR IN JSR LINKAGE 
000002 000004 #2,4(SP) RETURN ADDRESS 
177776 177776, =(SP) PUSH 15996 ON STACK 
027410 PC. STYPE *:CALL TYPE MACRO 


030362 SFFLG ;¢SHOULD REPORT FATAL ERROR? 
12$ z:sIF NOT: BR 
3 | RUNNING UNDER APT? 


NOT: 
3 3F INI SHED LAST MESSAGE? 
NOT: WAIT 
33GET ERROR a 
RETURN ADDR. 


; ;BUMP 
23 TELL APT TO TAKE ERROR 
;CLEAR FATAL FLAG 
7: CLEAR LOG FLAG 
030360 3:;CLEAR MESSAGE FLAG 
P 3zPOP STACK INTO R1 
als ;zPOP STACK INTO RO 


; sRETURN 
$MFLG: . 0 :sMESSG. FLAG 
$LFLG: ;LOG FLAG 
SFFLG: . ZIFATAL FLAG 


EVEN 
APTSIZE=200 
APTENV=001 
APTSPOOL=100 
APTCSUP=040 


tt a 9 WWI sh hh St SW 
NN SS SS SS vr 


( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
c 
( 
( 
( 
( 
( 
( 
( 





AAA ANAM AMAA AHA HAA HH A A A A A A A A A A A A A tt tt tt tt tt tH OTTO 
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-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


DISEASE IASI SIISISISIIIISIIOI II IIIDIOIOIIIIIDIOIUOIIOIIDIIOIIDIOIDIDIISIINIODOE 

[*THIS ROUTINE IS USED pA — A 16-BIT BINARY NUMBER TO A 6-DIGIT 
[*OCTAL (ASCII) NUMBER AND TYPE IT. 

> *$TYPOS=--ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


> *CALL: 
NUM , = (SP) ; NUMBER TO BE TYPED 
3;CALL FOR TYPEOUT 
:zN=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
7zM=1 OR O 
23 T=TYPE LEADING ZEROS 
3; 0=SUPPRESS LEADING ZEROS 


| $TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
:*$TYPOS OR $TYPOC 

:*CALL: 

* MOV NUM, ~ (SP) 3 NUMBER TO BE TYPED 

os 7zCALL FOR TYPEOUT 


creer HERE FOR TYPEOUT OF A 16 BIT NUMBER 
; *CAL 


NUM ,-(SP) 3 ;NUMBER TO BE TYPED 
3:CALL FOR TYPEOUT 


: a(SP) ,-(SP) 2 PICKUP THE MODE 
030607 MO 1(SP) , SOF ILL ; 

(SP)+,SOMODE+1 ; 

NL ay ADJUST RETURN ADDRESS 


BR TYPON 
030607 : #1,S$0F ILL 3;SET THE ZERO FILL SWITCH 
030611 MO #6, i3zSET FOR SIX(6) DIGITS 
030606 #5,$0CN oh ITERATION COUNT 


Fe et ee i te, ee, i Tt ee, ce, te, ee, ee et i ee, td 


E RS 
SIGET THE NUMBER OF DIGITS TO TYPE 
Lh eta Y IT FOR MAX. ALLOWED 
3-SAVE_IT FOR USE 
2iGET THE ZERO FILL SWITCH 
E INPUT NUMBER 


WORD 
;ROTATE MSB INTO *'C’’ 


0 DO MSB 
‘FORM THIS DIGIT 


: R 23GET LSB OF THIS DIGIT 
030610 TYPE THIS DIGIT? 


BP 7$ ; *°BR IF NO 
177770 #177770,R3 *:GET RID OF JUNK 
BN 4$ : TEST FOR O 


ee a tt it et te itt tt tit ttt te 


1 
1 
: 
1 
1 
1 
1 
1 
1 
1 
; 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


Fae tee tae ati atin Tati Tate atin cee at Tan ht Tai heat i ae ti ct ht et a et, i a a 
aecececcecececce cece cee ccc ce <<< ccxaa- 
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CVMNAA.P11 INARY TO OCTAL (ASCII) AND TYPE SEQ 0100 


‘iB IF YES. 0? 
3;DON'T SUPPRESS ANYMORE 0'S 
3sMAKE THIS DIGIT ASCII 

3 =MAKE mt we NOT ALREADY 
Se | FOR TYPING 

7260 iby & ae DIGIT 


OUNT 
:/BR IF MORE TO DO 
IF DONE 


3 INSURE LAST DIGIT ISN'T A BLANK 
:GO DO THE LAST DIGIT 

TIRESTORE R5 

7sRESTORE R4 

7 RESTORE R3 

7:SET THE STACK FOR RETURNING 


7 RETURN 
7 STORAGE FOR ASCII DIGIT 
77; TERMINATOR FOR TYPE ROUTINE 
hs DIGIT COUNTER 
2 ZERO ae SWITCH 


E: .WORD 0 R OF DIGITS TO TYPE 
.SBTTL BINARY TO ASCII AND TYPE * ROUT INE 


SAREE IOI AIIOICISISIISIOIIIOIOIIIIOIIOIOIIICIIUIOITIUIOITIOIOI IOI IORI TOT TOTTI 
‘THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 16-81T 
3 *BINARY~ASCII NUMBER AND TYPE IT. 


NUMBER , ~ (SP) i BE TYPED 


nl ae et 
—o4 
— 


(SP) +, (SP) 


es os oS 2 Ss SS 2 Ss st SS SS YS SY SS 
ee a ee ee ee ee ee Se ee ee ee 


( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
24 
( 
( 
( 
( 
( 
( 
( 
( 
( 
< 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 


LIB 


ee Ne Ne ee ee ee ee ee le le ee es ee Se ee a 


010146 : R1,~(SP) 44 a ON THE STACK 
016601 MO NUMBER 


6(SP),R1 ciger E INPUT 
ir SO_CAN KEEP TRACK OF THE NUMBER OF BITS 
‘SET CHARACTER TO AN ASCII *0"". 
:iGE1 THIS BIT 


SINO--SET THE CHARACTER EQUAL TO THIS BIT 
aoe bg | THIS BIT 

33 “< 30 a A al TRACK OF BITS 
ADJUST THE STACK 


(SP) +, (SP) 
;;RETURN TO USER 
0,0 3STORAGE FOR ASCII CHAR. AND TERMINATOR 


Se Ss Ss SS Ss SS SS Ss Ss SS SI PS SS SS Se 


PAAAMMAMAMAMMMMMMM 
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-SBTTL TRAP DECODER 


EEE EEL Ess LLL dladbalalelalalalabalabalebalabalabalsbabalaleelsbehbeleiele 
;STHIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘‘TRAP*’ INSTRUCTION 
;*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
:*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
:*GO TO THAT ROUTINE. 


STRAP: - RO,~(SP) 3;SAVE_RO 
MO * 2(SP) ,RO 2 3GET TRAP ADDRESS 
0) KUP BY 2 


(RO) ,RO 23GET RIGHT BYTE OF TRAP 
RO sPOSITION FOR INDEXING 
$TRPAD(RO),RO INDEX TO TABLE 
RO 33GO0 TO ROUTINE 


PAAAFAAYMR YYMYM 


3:THIS IS USE TO HANDLE THE ‘'GETPRI'’ MACRO 
$TRAP2: MOV (SP) ,-(SP) 7sMOVE THE PC DOWN 
000004 000002 MOV 4(SP) ,2(SP) 7zMOVE THE PSW DOWN 
RTI 7 sRESTORE THE PSW 
-SBTTL TRAP TABLE 


z*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
:*BY THE ‘TRAP’ INSTRUCTION. 


Fae tae ee i ee i ae ae ee ee a a ee i 
so os os 2 2 ot ot eS SYS 
wee vy ewe vy yee yee eee we 


030710 $TRPAD: 


WORD $TRAP2 
027410 $ 23 CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 
030410 3=CALL=TYPOC TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
030364 :sCALL=TYPOS TYPE OCTAL NUMBER (NO LEADING ZEROS) 
030424 : = CALL=TYPON TYPE OCTAL NUMBER (AS PER LAST CALL) 
027672 3: CALL=TYPDS TYPE DECIMAL NUMBER (WITH SIGN) 
030612 3; CALL=TYPBN TRAP+6(104406) TYPE BINARY (ASCII) NUMBER 


025276 3: CALL=GTSWR TRAP+7(104407) GET SOFT-SWR SETTING 


7: CALL=CKSWR amas ob oot « TEST FOR CHANGE IN SOFT~SWR 
1 411) TTY TYPEIN CHARACTER ROUTINE 
) TTY TYPEIN STRING ROUTINE 
READ AN OCTAL NUMBER FROM TTY 


+: CALL=TESTID 
- CALL=DELY (104420) 
DIST: . 300. :STATE-WIDTH DISTRIBUTION 
BUFFER: .BLKW 4096. ‘BUFFER AREA 


. END 


PA RAAPA ARAM MAMA MMM MMM MMMMMMMAMMMMMMMHNMNMM 
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171000 104 106 108 
000000 


59 
1164 456 472 483 493 2 562 575 
631 774* 778* 816 818 9 2 1359 
“es 1458* 1487* 1553* 1559 1939 


SLR ELLLELEESEYSrseseysy 


1445* 1457* 1555* 


1219* 1238* 21444 


$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
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1671 17004 
1380 13934 1408 
1485 22894 
105 107 109 117 118 119 120 


2407* 
740 850 985 1227* 1232 1246* 1283*  1364* 1385 
744 848 928 946 1230* 1232* 1250* 1256* 1284* 


2144 2421 


S& 


—34 SS 


1325 1429 


1166 2131 








CVMNA~A_MNCAD 


VMNAA P11 


DH1 
DH2 


024356 


/MNCAM DIAGNOSTIC 
CROSS REFERENCE TABLE 


Ww 
SPAS 
R 


Wrst oO 
MnNo— 


— = 9M eS SS 
RR 


Cool 


QF 


MACY11 27(654) 


1633* 
1861 


1659*  1661* 
1883 1886 


1217 14334 


1613* 


2 
559 


1687* 
24384 


711 
915 
396 


425 
978* 
978 


nN 8 
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1689* 1707 1811 1823 1825 


718* 750 757* 775* 791* 
917* 924 930 961* 1056* 


24324 


1507 
1502 


19234 


23014 


1001 1093 1097 1506 


SEQ 0104 


1847 


847* 
1057 


1511 


PARRA AAAAAAYN 
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VMNAA P11 CROSS REFERENCE TABLE SEQ 0105 


024442 81 87 23854 
98 23864 


1057* 1507* 1555 


994» 1090* 1094* 1516 1565 
15244 


1080 1104 1495 1751 1768 1782 1840 


1450*  2406* 
329 331 334 


_— ll 
=—N\)—CWwe 
= 


moO UMIPnN— 
= 


GNS = 2433 2434 2435 2436 
GSTREG 
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= 104407 276 24314 
oo 1264 


2064* 2068* 2075 23894 


- 21664 


mmmmn 


1451* 2407 2408 
1873* 1877 


22494 


1870* 
22474 


2414 
277 


8 2 
MTEST1 226 242H 289 
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S 
VMNAA P11 CROSS REFERENCE TABLE SEQ 0107 
017461 22544 
02 2984 


1722* 1756 1773 
1447* 1456* 


335* 1224* 1456 2137 


1237 


22944 


PEAK 001456 
PERCNT 901205 


PLUSR2 015756 
POS 016064 
POSITV 021604 


POSNOI 015322 
023127 
= 000000 
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DIAGNOS 
VMNAA.P11 CROSS REFERENCE TABLE SEQ 0108 


735 768 1059 1070 1085 1140 1264 1296 
1229 1417 1425 24314 


1 
1796* 5 1848* 
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1995* 2000* 
R2 =%000002 


SPACE 021014 


Ss 
STACK = 001100 





CVMNA~A MNCAD/MNCAM DIAGNOST 
VMNAA.P11 CROSS REFERENCE TABLE 


020771 1733 22844 
006240 679 7718 
177774 
001352 


22614 


001430 
024546 
005362 


TESTR2 016116 


Ic MACY11 27(654) 


434* 
507 


374 
1097* 
1944* 

198 
2060* 


1212 
1126 


2063 


G 9 
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777 
1098* 
1945* 

225 
2069* 
24354 
2066 


449 453* 


780* 824% 
1490 1635* 
1951 1966* 


23914 


829* 
1640* 
1976* 


460 


2402* 


858 
1663* 
1979* 


469* 


887 
1668* 
1980* 


963 
1691* 
1981* 


2421* 


997* 
1696* 
1982* 


SEQ 0110 





CVMNA~A_MNCAD/MNCAM DIAGNOSTIC 
VMNAA P11 CROSS REFERENCE TABLE 


024543 


000060 
020433 
007772 


7234 
732 
8074 


9844 


3664 4144 
015142 1872 18744 
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2067* 


1075 


2071 


1099 


2220 


894 


2073 


2226 


10104 


23884 


22374 


1505 


1510 


SEQ 0111 
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C 


AGNOSTI 
VMNAA.P11 CROSS REFERENCE TABLE SEQ 0112 
bo» 2 17304 
104416 3 78 1764 


We 2 es 


013122 
104402 


104404 
104403 
016212 


2395 


1459* 1462 1464 1556% 1614* 
2224% 2228% 2229 
2225 2233 


gress 716 755 





J 9 
CVMNA~A MNCAD/MNCAM DIAGNOSTIC MACY11 27(654) 19-SEP-78 08:51 PAGE 47-12 
VMNAA P11 CROSS REFERENCE TABLE SEQ 0113 


221 20804 


1213 12444 
188* 227 


236* 240* 606 610 724 
1244 1288 

1299 1475 
907 


1496 1841 24074 
1602* 1729* 


1454 


394 483* 494 509* 
1145* 1146* 1951* 1952 


1183 1285 1339 1388 


21304 





CVMNA~A MNCAD/MNC 
VMNAA P11 


DIAGNOSTIC 


AM 

CROSS REFERENCE TABLE 
24198 
23 


SNULL 5 
$NWTST= 000001 


MACY11 27(654) 


2396 2397 


385* 
191* 


368* 


203 


4004 
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2398 2399 2419* 2420 


803* 
2406* 


879* 908* 1497* 


407* 
S118 
1115s 


2236 


2406 


4044 4184 


1753* 


1138* 


2406* 


4234 4284 432e 4404 


SEQ 0114 
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DIAGNO 
CVMNAA P11 CROSS REFERENCE TABLE SEQ 0115 


4574 4674 4764 4864 4978 5244 5494 5644 5778 5904 6054 6514 6614 
6874 6954 7044 7234 772# 7854 8074 8354 9364 9844 


247* 349 620 729 987 1286 2130* 2211 2406 


Raeeane 
xaaake 


001212 
000000 


001174 
001160 


1037* 


8074 


2424 
2022 2032 2424 





M9 
CVMNA~A_MNCAD/MNCAM DIAGNOSTIC MACY11 27(654) 19-SEP-78 08:51 PAGE 47-15 
VMNAA P11 CROSS REFERENCE TABLE SEQ 0116 


030666 191 24314 
030710 2431 
000021 24324 24344 24354 24364 
651* 705* 773* = 2130* 2174 2406* 


196* 24244 2426 2431 


301 333* 2215 


1428* 1429* 


U 


42 434 464 484 564 574 584 59" 191 
24024 2406 2419 24204 2424 24254 24264 24378 
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A 
CVMNAA P11 CROSS REFERENCE TABLE SEQ 0117 


2419 
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CVMNAA P11 CROSS REFERENCE TABLE SEQ 0118 


476 486 497 524 549 564 577 590 605 651 661 676 687 
04 723 772 785 807 835 936 984 
2432 2433 2434 2435 2436 


382 484 495 712 730 732 765 804 976 


VLLVVVVLLLeVes 


104 
7# 
104 
84 
84 
84 
oF 


Sevewee 
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CVMNA~A_MNCAD/MNCAM DIAGNO 

CVMNAA.P11 CROSS REFERENCE TABLE SEQ 0119 

te 16'8 1646 1674 1712 1830 1854 1945 1982 2005 

ADD 172 295 8 747 950 1001 9 1050 1097 1138 1149 1313 1316 1347 
1 5 1397 1409 1440 1443 1449 1458 1461 1463 1465 1506 1512 1520 1552 
1616 1617 1644 1645 1672 1673 1760 1774 1775 1814 1855 1939 1976 1 2229 
2231 2233 2402 2404 2420 2424 2425 2426 2428 

a. 2835 1435 1545 1546 1547 1548 1630 1658 1686 1717 2402 2404 2420 2431 

ASL 

A 746 1438 1573 1709 1710 1711 1719 1736 1824 1827 1828 1829 1851 1852 1853 
1942 1943 1944 1979 1980 1981 2000 2001 2003 2004 2025 2026 2027 2028 2029 
2410 2426 

BCC 2425 

BEQ 19 203 223 273 330 395 484 572 585 589 607 849 8 
914 921 931 947 949 0 988 1011 1013 1062 1064 1173 1249 1261 1289 
1332 1338 1350 1361 1368 1404 1406 141 1427 1434 1439 1519 1621 1627 1629 
1638 1643 9 1655 1657 1 1671 1677 1683 1685 1694 1750 1767 1791 1846 
io8 gs 2051 2072 2130 2133 2138 2 2404 2406 2411 2419 2420 2424 2426 

BGE 820 1566 1721 1869 2406 

BGT 872 1 1492 1571 1958 2130 2402 2425 2428 

I 1318 2406 

BHIS 742 

BIC 237 393 453 499 526 570 584 614 628 759 1146 1159 1253 1259 1314 
1360 1378 1459 1620 1648 1576 1993 2020 2030 2130 2227 2402 2404 2428 

BICB 253 1270 1402 

BIS 243 327 436 44G 463 551 613 - 727 764 1112 1166 1265 1335 1352 1370 


BIT 299 588 1160 1172 1248 1325 1337 1354 1372 1899 1989 1997 2406 2419 

BITB 191 2424 2426 

BLE 817 1728 1781 1820 1839 1872 2044 2169 2175 

BLO 712 73 751 9 976 2402 

BLOS 2402 

BLT 1714 2017 2402 2424 2425 2428 

BMI 228 298 315 317 923 1022 1039 1641 1669 1697 2082 2425 
171 191 199 201 203 226 239 255 258 261 6 270 275 279 
283 302 308 323 350 399 452 558 5 616 619 621 

5 654 678 707 720 730 823 912 916 9 986 1031 1041 1129 1133 

1148 1161 1180 1182 1231 1272 1275 1287 1315 1322 1326 1343 1355 1373 1379 
1474 1533 1569 157: 1580 1597 1608 699 1701 1724 1731 1742 1802 1826 1858 
1875 1880 1896 1906 190 1932 1941 1970 1978 1990 2002 2055 2059 3 2212 
2402 2406 2419 2420 2421 2424 2425 2426 2428 

BFL 46 7 482 49 08 553 82 592 611 7 762 8 
970 1144 1245 1309 1358 1376 1632 1660 1688 1817 1913 1955 2014 2023 
2033 2040 2088 2402 2419 2424 2425 2428 

BR 178 187 191 203 211 277 289 303 328 363 365 380 382 514 539 
617 721 728 760 765 799 800 804 874 876 903 905 954 966 968 
980 982 0 1042 1048 1066 1077 1078 1081 1101 1102 1105 1131 1135 1175 
1184 1192 1201 1207 1218 1255 1292 1306 1324 1328 1346 1363 1381 1408 1441 
1448 6 6 1662 6 1690 1692 1716 1726 1754 1771 1785 1843 

- os 2172 2402 2404 2406 2413 2419 2420 2421 2424 2425 2426 2428 2429 

CLR 168 177 189 191 244 247 248 249 292 333 337 338 351 433 458 
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CVMNAA.P11 CROSS REFERENCE TABLE SEQ 0120 
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CVMNAA P11 CROSS REFERENCE TABLE SEQ 0121 


ro 
FOF 
NNO 


ee ee ee 
CON AUIS BW 
Pe nae Ny okies 9 


COWN 


1 
1 
1 
1 
1 
1 
1 
1 
1 


COCO NOS WI & & 
NS OWoO— 
ANWWON 
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CVMNAA P11 CROSS REFERENCE TABLE SEQ 0122 


2426 2428 
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DIAGNOSTI 
VMNAA.P11 CROSS REFERENCE TABLE SEQ 0123 


. IRP 


ERRORS DETECTED: 
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CVMNAA P11 SEQ 0124 


*C VMNAA , CVMNAA/ CRE =C VMNAA 
RUN-TIME: 30 17 3 SECONDS 
CORE USED: 27K 





